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Editorial 



I WAS Just sitting here thinking what a 
nice lot you Dragon lot are. I can't think of 
more than three people 1 never want to 
hear from again in all the time I've been 
sitti ng at t hi s des k(s) . W hat I s it abou t the 
Dragon that brings out the best in its ops? 
A lovable personality? Protectiveness? A 
conviction that there is always one more 
thing you can do with it? Cheapness? 
Who knows? I said that Dragon users 
move in a mysterious way, like God. Take It 
from me, it beats dealing with IBM, 
Thanks to the folk who wrote to say that 
they had substantial collections of DU. I'll 
expand on what was on my mind in next 
month's Letters page. I once met so- 
meone whose colleague's dad had work- 
ed at D r a gon Data . H e oo u Id n t re mem be r 
the address. Now I wish he could. 
The time has come to say again: don^^t 
forget the Show. The Colour Computer 
Convention in Weston-super-Mare 
(Weston-in-Sea as it's known to m 
natives) on SUNDAY 4tii December. Sup- 
port your show, and it will support you. 
rm gtadto hear that nearly all the display 
space is booked out. Tills must be a good 
one. 

Pete Gerrard is on holiday 
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How to subm Ft art ictes 

The quality of the materigl we can publish in 
Dragon User each mgnth will, to a very gr^at ex- 
tent depend o n t h e qu all ry of t he dFSOoveries th at 
you can make with your Dragon. The Dragon 
computer was launched on to I he market witti a 
powerful version of Basic, but witli very poor 
documentatiori. 

Articles which are submitted to Dragon User 
for pyblrcation should not be more than- 3000 
words long. All submissions should be typed. 
PJease leave wide margins and a double ^pace 
belween each Hne. Programs should, whenever 
possible, be compuier printed on plain white 
paper and be accompanied by a tape of the 
program. 

We cannot guarantee to retdrr> every submit- 
ted article or program, so please keep a copy. If 
you want to have your program returned you must 
Include a stamped addressed envelope, 



Letters 



This is your chance to air your views — send your tip^, compliments and complaints to Letters 
49 Alexandra Road, Hounslow, Middlesex, TW 3 4 HP 



Cure for 
hiccups 

JONATHAN Cartwright tells 
me that Brian O'Connor has 
written to you with infortnation 
about the space hiccup' (Vfe^. 
See be/oiv) in Utopi^- 
Reference was made to it in the 
instructions, but wliat it was 
and what it did was not entirely 
clear. Jonathan later explained 
it to me exactly, but too late for 
the review. 

Because of ihis a small part 
Of the review is not entirely 
true: observe the 6th 
paragraph on page 19: 'Should 
your fuei fall below zero . you 
will die and be sent back to the 
beginning of the game.' That's 
not quite true. The game is split 
into five stages Once you 
enter a new stage, you should 
hear a small beep. From then 
on, if you are killed . you start at 
the b eg I nn i n g of t h e new stage 
{if you have any lives left). So 
my statement that it is unfair is 
not justified. 

I do apologise for any in- 
convenience. The rating and 
all other statements still stand. 

If you're looking for so- 
meone to do the Expert for a 
month or two, I'm available. 

Donald Morrison 

72 Diriebught Road 

/ni/emess 

iV2 3QJ 

I hear a small beep ...if I die 
now, I get to €at my supper 
again. We are up to date with 
surrogate Experts, thanks, 
but if a vacancy arises be 
sure I will contact you first, 
the noo. Bob is I hope seeing 
to your other queries. No, 
you aren't sacked. Anyone 
can make a mistake, as the 
Daiek said to the dustbin. 



Back to 
Square Five 

WE would like to thank Donald 
Morrison for his excellent 
review of our arcade game 
Utopisi in DU August 1966, but 
would like to point out a slight 
inaccuracy. 

Mr. Morrison says that the 
player restarts at the beginning 



Every month w« will be shelling out a game or two 

courtesy of our supplies, to the r^ader/s 
who send the most interestmg or 
erttertainir^g letters. So send 
usyourhintsarhdyouropinior^s, 
fiend us your hi-sc ores and 
suggestions. Send us your 
best Dragon stories. What 
d'you think we are, 
mind readers?! 



^ EXTRA J 



cs 



Today the Dragon . . . 



I owe a lot to the Dragon 
because 1 knew nothing about 

computing t)efore I bought it, 
but I have learned how to pro- 
gram in Basic and Forth, and 
have gained wide experience 
of word processors, spread- 
sheets, databases eta which 
has held me in good stead 
when com pute rs eve ntu al I y a r- 
rived in my office, an advan- 
tage which I St iH hold over my 

AHA! So you are the myatery 
reviewer. I've been looking 
tor your covering letter 
everywhere, and here it is in 
my file labelled Letters^ 
Who would have thought it? 

I will try and find out 
whether the two programs 
are still being supplied by 
Compusense and what the 
prices are, but I agree that 
they should be drawn to 
newer users' attention. 

1 think it is unecessarity 
pessimistic to dwell on wh^t- 
might-have-been for the 
Dragon, so I won't print that 
part of your letter* We've all 
been th ro ug h it i n t he dark of 
the night (and on the letters 
page, in bits and pieces). 
Regard w hat P a u I n e ver t i res 
of saying: many users 
upgrade' to something with 
'more Ram* and, unlessthey 
have bought the machine for 
some specific talent, they 
are often none the wiser. At 
least you have used your 
Dragon to learn about com- 
puting. 

It^ 3 ]u St a passin g t hou g ht , 
and I suppose money has a 
lot to do with it, but why 
discard your old computer 
whan you btiy a new one? 
OK, if you have spent your 
life savings, and you want to 
change over a year later ... or 
ifyou are really short of funds 
,., byt the sale of a Dragon 



fellow workers. 

I enclose reviews of two 
packages from Compusense, 

Ertf + andDy^ata^f. Neither of 
these is new but they are still 
available and have not even 
been mentioned by your 
magazine for a considerable 
time. They m ay be of i ntere si to 
newer readers. 

GiiveG. Soott, 62 B&rry Meade 
Ashstmd, Surrey KT21 JSG 

th ese d ays won't help you far 
towards any other machine 
worth purchasing , and if you 
have bothered to exploit 
your Dragon to the f ull^ even 
in an un expanded version, 
you are discarding a lot of 
knowledge and experience If 
you don't maintain tt on the 
sidelines, 

Listen, I know a guy who 
recently paid £150—1 would 
put that in gold stars for em- 
phasis if I could — £1 50 for a 
complete second hand | 
Greengate sound 4 -track 
sampling system, complete 
with Apple 2e, dual di$c 
drives and synth keyboard. 
OK, the Apple 2e in that form 
Isadtnosaur, butthink of the 
power you have there ... I 
would have killed him to get 
at it , a nd so wo u!d m ost of his 
colleages. But there are 
bargains like that around If I 
you keep you r eyes ope n . 

Your ex-Dfagon, gentle 
reader, coufd be someone 
else's dream bargain. Think 
about that twice and hang 
about... 

One last thing ... I know it's 
tr adi ti ona I to ad d ress ed itors 
as Sir^ but Tve been with DU 
over two years now, and the 
only person who calls me Sir 
is my husband, and he 
doesn ' t get away wi th it. 

We're getting a good 
calibre of letter this month. 



of the game when a life is lost, 
but in fact the game 'map' is 
split into five sectors, and if you 
reach a new sector and lose a 
life, you return to the start of 
that sector, not the start of the 
game. 

He may have been review- 
ing a prototype of the game, as 
th i s feat u re was n ot added u ntil 
late in the game's develop- 
ment. We agree that when this 
shortcoming cfoes occur in 
games it is very annoying, and 
we asked Jonathan Cartwright 
to include this feature in Utopja 
before it was released, just for 
this reason. 

Neil O'Connor 

P u Is er Software 

36 Foxhill 

High Crompton 

Shaw 

Oldham 

OL2 7NQ 

HA] They^ ve all gone soft . . In 
my young day you got sent 
back to the beginning of 
Asteroid Storm even if you 
were on your 93rd screen. 
And it wasn't even meant to 
have 93 screens. 



Dynamic 
Dream 

REFERENCE Pam D'Arcy's 
comments on relocating 
Dream, 1 have an elderly 
Dream on cassette. This 
cassette I oad s D ream fro m hex 
6Cao. It then uses page hex SB 
(eg hex 6 BOO to 6BFF) for con- 
trol fields. Note that this is the 
first complete page below hex 
6C80. 

Page 43 of the booklet that 
came with the cassette says 
that Dreann is written in posi- 
tion independent code 
throughout, and so can reside 
anywhere in the memory map. 
It also says that it dynamically 
looks for the first complete 
page of Ram below itself and 
sets the Direct Page register 
{DPRJ to point to it. This iscon- 
sistant with the hex 6CS0 
loading. In fact, the booklet is 
not quite correct. If Dream is 
loaded from the start of a page 
(e^ hex COOO or hex SO 00) 
then Dream skips a complete 
page. Thus for the e^camples 
given it uses page hex 7E (not 
7F) and hex 6A (not 6B). Note 
that page hex 7F is the first 
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page of Ram under page CO 
(which is Rom). 

You can see that accord ing to 
where Dream is loaded, you can 
get anything from qne byte to 
256 bytes of free ap^ce before 
the Dream workspace. This is 
important if you us© Altdre&m, 
since Bug needs 128 bytes 
above the Dream space. If you 
load A I Id ream to start between 
byte 1 and byte hex 7F or a page 
(eg hex 6001 to hex 607F) then 
if you use Bug break points you 
might overwrite Dream. Result 
chaos! But Dream without Bug 
is safe. 

Pam is correct in tier guess 
about why Dream does not work 
for Dragon 64 K Ram mode. It 
would be trivial to alter Dream to 
wo r k for j u st t he 64 K mode, bu t 
I don't suppose it's worth the 
trouble- 
About pages: Dragon 
machinecodewhenreadmgor 
writing data can either 'see its 
paper' as on© vast sheet, or as 
a book of pages. In this 'direct' 
mode t he memory i s d i v id ed i n - 
to 256 'pages' each containing 
256 bytes. Both pages and 
bytes are numbered from to 
255 (hex FF). The page that the 
Dragon sees depends on the 
va I u e (0 to 255) t hat i & loaded in- 
to the DPR, 

When in direct (page) mode 
Dragon needs less byte3 of 
code and runs faster, but it can 
only access 256 bytes. 
However, itonlytakes 12 micro- 
seconds to change the page. 

Dream uses Direct Page 

when handling its control fields. 

T&d N9wman 

113 New Haw Road 

Addlestone 

Surrey KJ15 2DA 



Hack and Pdke? 

ON the subject of (commercial) 

programs, maybe someone 
could help me with David 
Maken's Picture Maker? I can 

get the screen dump to work, 
but it loses, or rearranges, parts 
of a serpen, especially when 

told to du mp acolour screen as 
opposed to a black and white 
(Pmode4) screen. Also can 
anybody hack it and give me a 
poke to p ut i t i nto P mode4? I ' ve 
tried, but oniy hacking program 
B will touch it, and then it only 
loads a small segment which 
cons i sts of an On Error Run and 
some other incompfeie code. 
O n th e s pi rtti ng of the Drag on 
world (Tandy/Dragon, 32/64 
etc. ) wh at about th ose of u s who 
only use discs or tapes? 
Whereas it may be easy 



(alright, it's not, but to keep it in 
context) to convert a program to 
disc^ how can someone who 
doesn't know anything about 
discs even attempt to convert 
one for tape operation? I am of 
course referring to programs 
printed in these erstwhile 
pages. 

So me ad vice for th os e of you 
with Dragon Data joysticks who 
have 'broken' them in someway 
or other. The top half of the cas- 
ing must be prised away from 
the bottom half to gain access 
(difficult). Also Maplin switch 
JBQOA on P444 of the current 
catalogue is a good fit for replac- 
ing the fire button ... even if it 
does tend to melt at 25 watt 
soldering power! 

For those cf us who wofd- 
process on Peter Whittaker's 
Wordprocsssor, pressing 
< SHIFT > + one of the 
I eft/rig ht a rrow keys enables you 
to jump through your text from 
CR to CR while in the editing 
mode. And it is also necessary 
to clear the glossary when star- 
ting from scratch before enter- 
ing any words. I cannot speak 
for the disc version . but suspect 
that these hints are correct for 
disc users as well. Anyhow, 
judging from the number of let- 
ters on Peter's word processor 
s i nee it was pu bl ish ed , perhaps 
we ought to start a R Wh ittake r 's 
Wordprocessor User Group! 

To f i n is h u p, how abo u t shel I- 
ing out rebate coupons instead 
of games for the best letter of t he 
month? So that serious users 
can g et th e msel ves some m ore 
(serious) utilities? 

Garefh Sims 

24 Logw&tt Court 

StandensBam 

Northants 

NN3 3TN 

NOT a totally silly idea, that. 
111 look into it. Incidentally, 
one of the great unsolved 
mysteries in the History of the 
Dragon is: what happened to 
Pete r Wh ittake r? We tost track 
of him out Ely way 
somewhere. 



M1009 to HR5? 

YOU R Down in the Dumps artp- 
cle in November 1987 came 
near to my requirements, but not 
near enough, i have a Brother 
HR5 printer. Can anyone tell me 
how to modify the Ml 009 pro- 
gram for use with the HR5? I 
presume all I need to alter are 
the EXC codes in EFDC to 
EFEC Your help wouid be ap- 
preciated. 



Keep up the good work. 

RF Roach 

Tmnellan 
Manaccan 

Hehtor} 

Cornw^ti 

TR12 6HY 



In heaven 
with Lueifer 

I have o w ned a D ragon 32 s i nee 
September '1963. In this time 
good and bad (mainly good) 

games have been produced. 
Every so often another game is 
hailed as the best game ever. 
Well, its now time to move 'the 
best game ever' tag held by 
ShocktroQper to its new and 
rightful place on Lucifer's 
Kingdom. 

After recently purchasing 
this incredible game from 
Orange Software (they deserve 
a mention) (Ustenr mate, 
they're so effichnt you carit 
miss them.) I loaded the 
cassette into my Dragon 32 
(the family computer) (that's 
what it says on the box. How 
come the family portrayed 
aren't entangled in a thousand 
wires? You should see the 
state of my bedroom.) On 
loading Lucifer's Kingdom 
(which is a stupid name for 
it) you are presented with 
a screen which I can only 
describe as XXXX (you may 
have to put very poor) — 
mouldy orange and lilac 
characters. Still,, you can't 
judge a book by its cover. 

The game starts automatical- 
ly and you find yourself con- 
trolling a hovering, flying thing 
which fires two missiles when 
you press the left joystick but- 
ton. The game is in PiVlODE 4 
and is quite honestly the best 
game I've played. It's fast, 
smooth, addictive and very 
frustrating After hours of play 
and aching fire button thumbs 
I got to the second of five 
regions. Only another 20-odd 
planets to conquer. It was 
because of July's Dragon User 
review that I bought the game. 

I find it reassuring at this time 
of the Dragon's life to encounter 
brilliant software and it's 
becau se of this a nd th e continu - 
ing quality of Dragon User that 
I've decided not to trade my 
Dragon for an Amstrad (spit) 
and to re-su bsc r i be fo r another 
year. 

All this praise from a man 
whose full-time occupation is 
working with ICLand IBM main- 
frames. Have you ever tried 



writing a shoot-em-up program 
in Cobol? 

D J Piatt 

46B Winchester Road 

Burnham-on^Sea 

Somerset 

TAB 1HY 

HAVEN T you heard of our 
new publication Cray Gamer? 
Our first issue will feature a 
cute shoot-em-up where the 
player sim ply takes out Saturn 
and Jupiter. Pity only one p«r- 
Sdn can play it! 



HI score 
corner 

I would be very much obliged if 
you were to print the following 
message in your magazine. It is 
about a new Chuckie Egg high- 
score ... 

Now, before \ give you my hi- 
scorOp I would like to say a few 
things to Andreas Verwegen, 
whoscored an 'unbelievable' hi- 
sccre of 15,094,650! Well. An- 
dreas, you have been beaten in- 
to a SMALL second!!! My 
hi-score on Chuckie Egg was 
around 52,000! No, waita sec ... 
was it 160,564,969? Or was it 
294,785,289? Or was it 
368,102,689? NO! It m ust have 
been 71 4,732 . 200 ! ! ! ! lost cou nt 
of the level , but acco rd in g to An - 
dreas' score/levet ratio, it must 
have been about 3&,7e0!!! 

Mark Henegan (age 15) 

2, Orchard dose 

Biggteswade 

Beds SGW ONE 

PS If anyone beats my score. 
WATCH OUT! 

SM ELLS fishy to me, th is „ . tie 
says he's 1 5, but h is spel li ng 's 
better than mine and, accor- 
ding to ftiy ca Icy I at ion 5, he 
has spent approximately 73 
years obsessively playing 
Chuckie Egg ,,. Is he (a) Dr 
Patrick Moore {b) Professor 
Sir Randolph Quirk (c) Dr. 
Isaac Asimov? Answers on a 
postcard, please, along with 
y o u r cu rrent top five soft wa re 
titles, to the usual address. 
%u g u essed it, I 'm th in ki n g of 
reviving the People's Chart - 
probab ly on an i rv^g u\ at basi s 
(gives the new product more 
time to hit the streets). Why 
should Chuckie Bgg have all 
the fun? 
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News desk 



If you have any new prodycts for the Dragon — software or hardware — 
please write to The Newsdesk at 49 Alexandra Road, Hounslow , Middlesex. TW3 4HP 



New and converted 
from Dragonf ire 



DR AGO N F I RE Servi c^s have a 
limited number of Th& Tape Doc- 
tor cassettes., which were 
published by Computil, for the 
TandyCoCo32KONLY.Th&prO' 
gram, which helps users recover 
bad files from tape, received a 
five-Dragon review in Dragon 
User wfien it was re I eased . Pric- 
ed £4.00 plus P&R the tapes 
have colour covers and are 
available while stocks iast only. 

New from Dragonf ire is an 
adventure called Hate by R E 
H em m ings. You r shi p is su c ked 
into the infamous Black Hole. 
W hat happens next I s not told . . . 
price£3.00 plus P&R 

Newon disc \BPrinmr Prompt 
II, Dragonf ire's 'electronic 
typewriter' program, compati- 
ble with DragonDOS and 
CumanaDOS 2 0. Tfie price is 



E4.Q0 as fo r th e tape version . The 
program has a 64-character 
screen display, is menu -driven 
and is compatible with Epson 
and Epson-type printers. 

Dragonf ire is currently con- 
verting many of itsprogramsto 
disc, initially for DragonDOS 
and CumanaDOS. Dragonf ire 
would I ike to hear from users in- 
terested in conversions to 
DeltaDOS so that they can 
assess demand. 

Th e com pany is wo rki ng on a 
major addition to its list for the 
Colou r Com puter Con venti o n i n 
Decemben 

For more informarion please 
send astamped SAEtoDragon- 
fire Services, 13 Parry Jones 
Close, Blaina,G went NP33NH. 
Postage is 50p per lape UK, 
El 2S overseas- 



H C Anderson list 



H C Andersen has published a 
new product/price list for the 
Dragon which is available from 
them at Englandvej 380, 
DK'2770 Kastrup, Denmark. 
The list is a 16^page A5 booklet 
and includes hardware and 
discs, upgrade kits, spare 
parts, OS-9 and Flex software, 



games and utiliUes. 

HCA are the European 
licensees for OS-9. Prices 

in the English-language list 
are quoted as for export in 
sterling (GBP) ex VAT 
Enquiries about VAT and 

customs duties should be 
addressed to HCA. 



New Era expands 



Simon Jones S New Era 
Publications are issuing two 
booklet guides to Dragon pro- 
ducls and suppliers. The 

Dragon User's Handbook 
'details every consumable cur- 
rently available for the Dragon 
(and) every company/user 
group currently supporting the 
Dragon' according to Jones, 
wh o adds th at t hey be I i eve th iis 
will help in the fight against 
piracy by identifying software 
available legitimately. The 
price is £1.65. The Dragon 
Directory is a bi-monthly up- 
date which 'is aimed al keep- 
ing users in contact with other 
users/companies (and) will 



detail any new software which 
has been released prior to 

publication of the direciory'. 
The price is £4.95 for a two year 
subscription. New Era's pre- 
sent s u bsc ri bers a re entit I ed to 
a discount of approximately 
15°/o on both booklets. 

New Era has recently taken 
over the list [undetailed) of 
Unique Software, who were 
publishing Dragon software 
in 1984. and hope to revive 
other deleted software in the 
future. 

Enquiries to New Era 
Publications, c/oSimon Jones, 
37 Collins Meadow, Harlow. 
Essex CM19 4E:N 



Lee goes American 



Gordon Lee's competition 
page featured (through Win- 
ners and Losers') in the July 
1986 edition of Scientific 
Amer/can when Gcrdon 
issued to readers of that 
August journal the challenge 
he issued to us in the July 1988 
W&L - to construct a square of 6 
by 5 digits which contained 
more than 170 prime numbers., 



The Computer Recreations 
column offered some tips for 
constructing such a square, 
and offered to print any solu- 
tions which beat Gordon's. 

We await the outcome. If 
anybody out there cracks it — 
tell SA as well as us, and teli 
ihem where you come from! 
We await the outcome. 



Update to date 



THE July 1988 edition of 
Dragon UpdBt&, the Newsletter 
of the National Dragon Users 
Group, contains a report from 
the Ossett Show, reviews of 
tudfer'8 Kingdom and Utopia, 
a look atthe CoCo 3, news, pro- 
gramming articles, and two ap- 
peals: one for local area 
members to run the NDUG 
stall at the Weston super Mare 
show in December, and the 



other for somebody to help 
Paul Grade get a backup 
photocopier from Lincolnshire 

to Worthing. 

The National Dragon User 
Group is a user group offering 
technical assistance, a forum 
for Dragon and Tandy users 
and 12 newsletters a year. For 
information write to Paul 
Grade. 6 Navarino Road. Wor- 
thing, Sussex. 



Orange across the Sea 



Orange Software is releasing 
an adventure by Geir Ho viand, 

North Sea Action. 

This is a pacman4ype game 
in which the player sends 
a drili down below the North 
Sea in search of oil and oil 
drums. 'Not the most intel- 
leclLially testing game, but it 



hasthat "one more try '' quality^ 
says G ra ha m S m it h of Ora n ge. 
Orange's brochure Ss now 
a nice little A5 booklet Write 
to Orange Software, The 
Garth, Start Road, Nant-y- 
Derry, Avergavenny, Gwent 
NP7 9DP for information. 



Starship rolls again 



THE next release from Star- 
ship Software will be tm- 
possiball, featuring full colour 
perspective graphics, music 
and digitised speech. The 
game is being finished and 
more details will be released 
shortly. 

Impossib^li will be publish- 
ed by Pulser Software on 
cassette or DragonDOS disc 
for the same price. Pulser are 



also planning a new text 

adventure, a new self- 
definable database program, 
and a computer aided design 

program, CAD 6909 {probably 
priced at E4.99) in September. 
Discounts of around 10% on 
many of their older programs 
witi be available. Enquiries to 
Pulser Software. 36 Fox hill. 
High Crompton, Shaw, 
Oldham 0L2 7NO. 
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JOHN PENN DISCOUNT SOFTWARE 

Here are jij^t a few oul of our huge rangB pt programs for the Dr agdn: 

GAfAE^ AfcadB or arcade/adveotuf^ 
FORy ULA ONE (Pamcomms) cass or disc EB.95 SpNt screen race game for one or two players. Lap limer and race position, plotting fdr each dfiwsr 

Joystick oniy. "A beauOfui piece of programming" 

TOTAL EC LJPSE (Fen mar Eeiip&e) cassE6.&0 Reai time space adventurB. Has AQBO objects. 7S% of which ar@ pianels. Embark on a voyage ol 

adveriture Ehrough time and space in your quest to so«ve the mysftery of the lost shards. Simple lo conlrol with joystrck or keyboard optbns. 

SAS (P&aksott) cass £2.00 Startling hi- res action for the Dragon. Helicopters, gunsfiips, 9 minefietds, armed patrols, enemy bases, wire guided missiles, 

GAMES A^vonture 
LARKSPUR WALDORF IS TRAPPED (PrestosoftJ cass L3.S0 Graphic adv. The quest = to escape Irom a ca^le where you. the hero, are trapped. 

"On^ pr the best budget games I have ever seen" 

SUNKEN CITV (Blik) cass £2.00 (REDUCTION) Overcome literally dozens of natural and unnatural hazards as you scour the continents of me world in 

' ya ur api c sea re h for the l&gendar^ Sun ken Sity. 

HARE RAISER (HaresoH) cass double pack £340 {REDUCTION} Animated! graphics and lexl — Iwo programs in which you search for the Golden 

JeweilEd Hare. An absorbing puzzle requiring patience and an inquisitive mind, ttial can be solved by adults and children alike. 

BARGAIN BASEMENT 
£1,50 each : five for £8.00 : ten for S^IO.OO 

adv: TRANSYLVANIAN TOWER, LlONHEART, SUPERSPV, PETTlGHEWS DIARY 

arc: LEGGITT. MINED OUT, GITY DEFE^JCE. OSSIE, DRAGON TREK [alsoady). DRAG RUNNER, AMAZING, SURPRISE 

Sim etc: GOLF. CHAMPIONS. CHOCOLATE FACTORY, NIGHT FLIGHT. DEATH CRUISE 

UTILITIE5/BU SINEWS SOFTWARE 

PICTURE MAKER (Maken) cass £5.00 Allmvs ihe design of PMODE 3 graphics using only the 4 cursor keys or optional joystick. 

MUSIC MAKER (Maken) cass £5,00 "Ttie definitive rrsusic writing program for the Dragon." Allows you lo write yoijr own lunes in four pan harmony 

MUSIC f^AKEH e. PICTURE MAKER - double pack £9.00 
HI-RES-TEXT(SlarEhip) cass £3.00 A hi- re? driver compatible wilh Dragon BASIC, both BASIC and machine code drivable. Acolleclion that gives a 64 

by 24 display. "Gives your Dragon a fasl. business-usable kind of screen" 
PERSONAL BANKING SYSTEM (Hilton) cass (2 lapes) E9.&5 A surte of programs that are designed to maintain permanent records of accounting 

transactions viewed from abanh account Can be downloaded to disc. 

$Bn<J for our pfice fiss ior de#a//5- of our man/ ether pfograms, indudtng education software and 0S9. 

HOW TO ORDER - Write lo us. or phone with an Access order, stating the programs you would like. Please enctase &0p for PfliP on single orders, and 

75p for two or morejrems. Postage To Europe (includes Eire) is^S-TO. H possible please givB a phone number as well as your name and full addre^a. 

We fry to despatch orders within 24 hours, bui allow up to 21 days for delivery \l neoessary, AN sollware subject to availability. Cheques/postal orders 

made payable to JOHN PENN DISOOUMT SOFTWARE, DEAN FARM COTTAGE. KlNGSLEY. B OR DON. HAMTS GU35 9NG Tel:04203 5970 

FUTURE SHOWS * * We look forward to seeing you at * * 

THE ALTERNATIVE MICRO SHOW at Ihe Aston VillaSports A Leisure Centre on Saturday 12 November, and 

THE COLOUR COMPUTER CONVENTION at the Arosfa Hotel. Lower Church Rd, Weston Supemare on Sunday 4 December 



SOFTWARE FOR DRAGON 64 

forDmgondos (pl&B^e state version) 

^SIC 42 Exlended Basic £M.9& 

Pfim on hi'T&s screen, with standards priani commands 
USing a, 42 t>y 24 layout r^^hrh^bls ch-ar^cl^r i^l^. MindDUjS. 
inverted -i^ideo. undei'liflififl. refwaling keys etc -Still 23335 
bytes free to BASIC. 

Extra Umties for BASIC 42 

HELP UTILITY £5.00 

Change cursar character scroll disable, pause listing. 
SREAK disable, imprgwedTRO-N', helpant3e*'ro*iif*e£sa)ge£. 

STOOL UTILITY £500 

U&e Compulerwhii& printing. a5K ptinrt butler. 

ICONS UTILITY £S.0O 

Pul icorfcS I n you r pKograms! Conrrailed by CUfSOr or joystick 
Commands in deli ne. clear, ig^ arid save icon positions and 
vrirvdows^. 

STfl U CT U R UTILITY ES,00 

Structyrad BASIC on the Dragon. Allows named 
procedures, imprqwi^ loop ccmtrols wilh WHILE... WE MD. 
REPEAT ^JNTILelC, 

DOS UTILITY ESjOO 

Enier all DOS commands, piui LIST. EDIT ate by cuf^orcir 
joystick. 

KLIK UTILITY C14.95 

Pq\ nt and ciicK Operation or the entine system , with pulkJown 
menijs. pomie^, dialogua bav:. tontrot bulling gnd ^e<p 
messages. Includes s&latiivi^ diracipfie^. rgfieatirtg 
commands, ismpmvad edumg. setup rrwduie, Dess^lop 
aocessofi^^ include a di!^k-based spooler memo pad, 
snapshoi.an^dion&r. 



SPECIALOFFEn:BASIC42 4 KLIK £24.95 



MAKE THE MOST OF YOUR DRAGON 

With our great value hardware and software: 

DISK SOFTWARE 



NtW! Accessories for KLIK: 

{please send d sk 1or updating! 

JOBS ACC ESSOfiV L^cc ucable commgnrf lile! £5 .50 

CA LEN DAR ACC ESSOfl Y 1^88 Calendar. C2 .SO 

D( AflY ACCESSOFIY 1 98fl D-ary. Z2 .50 

FR A M E n ACCe SSORY Advanced wind™ carHral £2 .50 

C A LC ACC ESS HT J-^u ndMon CfllCylalor C2 50 

ARTIST ACC ESS RY J rawmg program ^2.50 

DUM PER ACC ESS HV Epson sci-a^n durr*n ' t2.S0 



For Dfsgon 32/64 with 

DfBgondos/Cumana DOS 

Pixie (Mindsoft) £14.95 

icon-dnvfin drawing program. Requi-res joystick. 



HARDWARE 



VIGLEN 40V&C I rpcic drives, inc Cartridree: 

S i ngl e D rive (1 eO-TlK) E189.9S 

QyfllDriue(360-1J40K] £289.^5 

Df ives only; system prict LESS £70.00 

Attd-o-nseeorkcldrlvevvMh ■flffliadutik" C1 34.95 

SuperdosCartriidg^ with manual tTS-M 

Superdos conlTtjIl^r ( DOS chip dnlyj ZiOM 

eiafih^ish^lpa^hso^r Id): 

40 track d^Libl?-&idcd Z4.B5 

BO track double-sided £ 5, 35 

Disk li brary tmx (holds 10) £2 , 75 

Disk Head cleanardiak £4.75 

MACGOWAN SOFTWARE 

For Dragon 32/^4 witn Drsgondos/Cvfu^n^ C*OS 



PftlNTEFI CONTROL 

A 'axt AN D graphics procesBar 

DUMPEFI 

\A9rsailia re-lpp^t^ble screen 

COLORPiRIHT 

P^IODE ^screeficlump program 

STARLITE 

Lighipen sijitware, wilh printer dump 

hlQMITOR/ASSEMBLER 

Pnn^e'onerfted assembler 



FROM £24.95 



FROM 

dump 
FROM 

FROM 

FROM 



£5.95 

progranf^ 

£6.50 

£sao 

£16.00 



* Prices wary whnpfini8f:pteas*si3&tiPy 



DSKDREAM (Grosvenor) 

The standard Dragon Edildr/Ai^^mbler 

D.R.S (Gro^v^nor) 

Msctiine code database. On tape, foe disk 

SOURCEMAKER {PamcoTfim&) 

Disa&s&mbler for use with DSKDREAM 

DISK- KIT (Pamcomms) 

Sortoul your disk problems, errdr^elc 

MONEYBOX (Harris) 

Home and ^m^ll business accounts pnogfam 

MAILBOX (Harris) 

Selective mailing I ist program 

SHAREBOX (Harris) 

Manage your stocks and shares 

SALESBOX (Harris) 

Balance tir-ou^l^l forward Sates Ledger 

BILLSBOX (Harris) 

Balance brought forward Purchase JjQdgigr 

CASHBOX (Harris) 

Double-entry Nominal Letfg&r 

STOCK BOX (Harris) 

Full-fealured SlDCiKComlfol program 

ORDERBOX (Harris) 

Invoicing linksri tc-S^le-s prStocN 



Cli.95 



£5.95 



£e,50 



C9.95 



£14.99 



CI 6.99 



£16.99 



£19.99 



£l9.9t 



£19.99 



£19.99 



£16.99 



Prices include UK postage. Overnight delivery [UK) AOD £5 
Cheques/PO.'e^Furthe r clelailsAJeater enqu iries to: 



HARRIS MICRO SOFTWARE 

49 Alexandra Road, Hounsiow, Middlesex, TW3 4HP Tel: (01) 570 8335 
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Dragonsword! 

Paul Grade gets his insptratbn from a fruit 



HEARD about the nevv Officral Secrets Act 
yet? Don't worry, it isn't likely to apply to 
anything you 're likely to write on you r Dr&gon, 
at least not unless you're really working for 
MI5 and trying to discover the inside secrets 
of Dmgon User. 

A lot of program nners appear to imagine 
that whatever they write is an 'Official Secret', 
especially In the Dragon world (Notju^ the 
Dmgof} world, snarls your Bditar^botit- 
fown)and3pend mOFie time writing protection 
routines than they do writing programs. 
What's all this about? Well, Tm getting a Irttle 
lired of hearing all about the Dreaded Pirates 
who spend all their time copying programs 
and passing them around, thus depriving 
poor hard-working program mens of 
thousands of sales. It may well have been 
true once^ and there are still a few morons 
arc un d who i mag i ne t hat buyi ng one copy of 
a prog ram" between 99 people is a good idea, 
but if someone is really determined to break 
into a protected p rogram they wi II , so what o n 
Earth is the poiniof writing all these elaborate 
routines? Personal ly I was always told that 
the first thing one should do when buying a 
disc or tape was make a backup copy and 
keep the original in case of accident. That 
makes a lot of sense to me, and if I have to 
spend several hours fiddling about before I 
can make a backup copy of a program then 
I'msimply not going to buy thething in thefirst 
place. I don't care how good a program may 
be, orwhatabargainitis, I insist on the right to 
be able to make a backup copy, and if this in- 
volves having to break a protection routine 
then I refuse to buy it. 

The whole thing is ridiculous. I KNOW 
sales are low now. but that has nothing to do 
with 'pirates', it's simply that there are a l:Ot 
fewer Dragon owners now than there vwere^ 
and those that remain tend to be more in- 
terested in using their machines than runn- 
ing the latest games software. When the 
programming world realises this we might 
get somewhere, and more to the point they 
might even get a few more sales. 

AswellastheDi^gon I have to admit to run- 
n i ng an Apple 2 + , which as you wi i I probab iy 
know is an equally antiquated machine, but 
has the advantage of an established 
business and educational user base and 
thus a lot more good quality software than is 
available to Dragon owners. The programs 
aren't cheap, about eight times the price of 
Dragon software, for all you pricen 
complainers, but very few of them are pro^ 
tected in any way, and to counteract those few 
that are there is a large selection of commer- 
cial oopying programs. Almost every Appie 
disc, regardless of source, contains an in- 
struction to make a backup and HOY use the 
origlnaL and several firms throw in a batch of 
freebie programs and routines as well as 



the main program, plus summaries of for- 
thcoming releases. When was the last time 
you found anything like that from a Dragon 
software firm? It is a m uch better attitude, and 
has to be more attractive to potential 
customers than the paranoia about 'piracy'. 

i am not defending the real pirates, those 
people who copy a program, change a cou- 
ple of I i nes and then try to market It as 'orig I nal 
work! That isn't just piracy, it is also theft, and 
there is no excuse at all for it. Likewise, I hold 
no brief for 'software libraries' who make 
copies of commercial software and rent them 
out in order to make a profit. The harder these 
types get jumped on, the better, but actual 
sales losses through private copying are 
minimal, and f think are probably no greater 
than sales lost through over protectiveness. 
Anyone sel I i ng fifty copies of a prog ram i n th e 
first six months is doing 'as well as can be ex- 
pected' now. The market just isn't there any 
more, and more to the point, Dragon users 
generally now know a lot more about their 
machines than in the 'Good Old Da^', and 
are quite capable of writi ng sim pie prog rams 
for themselves, which means that a commer- 
cial prog ram has to be good i n order to sell at 
alL 

I'm not having a go at programmers. 
Generally they do their best to provide good 
material at reasonable prices, and certainly 
none of them are going to get rich out of it. But 
a few of them just refuse to believe that there 
is now a I i m ited market, and that gam es sales 
are so low that they'll be lucky to cover the 
cost of the listing paper they used in writing 
the program. Blaming piracy is self delusion. 
Those of us left need the software, and are 
willing to buy it. There is still a market, but it 
isn't big enough for anyone to make a profit 
from, so what's the point in expecting one? 

If anyone thinks I spend all my time com- 
plaining .they're wrong, I never spend more 
than 75% of it that way, b ut if you want to know 
why, try starting a user group or a magazine. 
Well over half the letters that come in contain 
at least one complaint about something or 
other, usually things over which I have no in- 
fluence at all, and the list of "Why doesn't so- 
meone mar ket/write/p ubi i s hfexplai n/i nvent 
etc' would f i 1 1 a dozen iss ues of th is magazine 
easily. (Now that's an idea Boss Lady hasn t 
thought of yet. I think. (A sort of whinge cor- 
ner, you mea^? I thought the Lemrs Page 
w^nt far enough, but now you menthr} it...) 
All I am really doing is replaying a few of the 
com ments and 'whys' to you , hopef u I Iy for ac- 
tion, but failing that a few solutions would 
help. Of course I add a few questions and 
comments of my own, but I'd be afoo! to miss 
the chance, wouldn't I? 

On the subject of questions, there's one I 
really must ask. It may not be of quite such imh 
portance as the meaning of Life, the 



Universe, and Everything (and anyway, we all 

know th e answer to t hat one) , b ut it is a q ues- 
tion which has caused generations of Editors 
and writers to leave claw marks in the 
wal I pape r and increase the val ue of Disti I lers 
Company shares by several thousand per- 
cent. Is tliere anyone out there? Personally I 
don't believe that any of you are there at all, 
you 're j ust someth i ng out of a very prolonged 
dream, but if there realty is life on the other 
side of the keyboard j ust knock three tim es for 
yes, twice for no. I mea n . I f t here real Iy was i n- 
telligent life out there why would I get letters 
telling me that the writer has been a 
subscriber to Dragon t/ser for several years 
but has only just heard atwDiit the National 
Dragon Us9rs Group, from a friend? Why 
would I get letters from Group members ask- 
ing me if Dragon User still exists? Tve been 
giving User mentions in Update for years 
now, and at one stage even canying User 
advertising and subscription forms. Dragon 
User has been mentioning the Group in 
almost every issue for about the same length 
of time, so is there really someone out there 
reading this, or are you all a computer 
malf u nctbn? (But if yo u are, who is sendi ng i n 
the subscription cheques and the letters full 
of questions I can't answer?) 

Enough of this rubbish. I'm being paid 
(eventually i hope) to write serious, profounds 
Iy interesting material for this prestigious 
magazineJ know they are intelligent 
because I read Pete Gerrard's page too, so I 
can learn all about how to do deals with trolls 
(very handy if I happen to get stuck in a Scan- 
dinavian myth), fairies (useful in a couple of 
pubs I know), wizards (are they the ones 
responsible for sunny spells?), and similar 
everyday phenomena. The bit I don't undem- 
tand though is why Pete's regular reader(s) 
are so hooked on the now traditional Adven- 
ture scenario. Tolkien has a (otto answer for I 
know, but surely someone could break out of 
the pattern? How about an Adventure pro- 
gram based on parking a car in London or 
Brighton? The hazards make mere trolls and 
demons seem positively benign. Or how 
about one for all ex-Army and Rugby Club 
members, based on the Story of Eskimo 
Nel I ? So you must have wizards? Try writi ng a 
Spell C asti ng Uti I ity (with a special s ub-men u 
for putting curses on people who offend). Of 
cou rse, there i s a si ight snag with that o ne. If it 
worked properly it cou Id result in several peo- 
ple I can think of having to hop rapidly to the 
nea rest pond , and our III ustrious Ed itor might 
have a harder time than usual parking her 
broomstick [Please. I ride a Vax,) but who 
cares? Let's have a bit more variety. Please? 



Ad/ 
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Dragonsoft 



New software for review should be sent to Dragon User^ 
49 AlexandraRoad, Hounslow, Middlesex, TW3 4HP 



Come back, 
Compuseitse! 

Prog ram ;£dJf + 

Supplier; Compusense, PO 

Box 169, Green Lanes, 

Palmers Green. London N13 

5TN 

Price: Unknown. Cartridge or 

disc. 

THIS product cornp rises the 

scre&n utility Hf-r&$, which is 

also available on its own and 

Ed/f + , a full screen editor for 

Basic programs. 

Hl-res uses a special 
character set to produce a 51 k 
24 te3<t display on a mode 4 
screen. The display, which is 
similar to that of the word pro- 
cessor Tetewriter, can be 
dfspjayed in black text on 
green or buff backgrounds or 
the in verse - 

A PRINT lin place of the nor- 
.mal PRINT @ command, 
which can still beused for a32x 
16 display, gives access to all 
1224 print positions. Various 
foreign character sets can be 
selected by extensions to the 
CLS command. Text can be 
freely mixed with graphics. Hi- 
res is not as versatile as Haln- 
bow Wrltef and when combin- 
ed with Ftff+ consumes 
considerabfy more memory, 
but it is worth ft for the screen 
editor which is a vast improve- 
ment over the Dragon line 
editor. Type EDIT and the 
screen will clear and any Basic 
program in memory wilf be 
displayed. 

The CLEAR key is used in 
combination with other keys to 
select the various options of 



the program. Auto repeat is im- 
plemented for easier move- 
me nt arou n d th e sc reen , which 
is by means of the cursor keys. 
The screen unlike a word pro- 
cessor will not scroll when the 
cursor reaches the bottom of 
the screen but it can go up or 
down ascreen atatimeof itcan 
jump to a specified line. 

The default mode is over- 
write b ut al thoy gii i nsert can be 
selected it will return to over- 
write when an alteration is con- 
firmed by pressing ENTER. 
I nsefting into a long line can be 
s I ow so it pays to exte nd the I ine 
first. If too much text is entered 
into a line it Willi beep and show 
an overflow marker. New lines 
can be added or old lines 
deleted. 

Characters can be deleted 
individually at the cursor or 
fromthecursortotheendofthe 
line. Single or blocks of lines 
can be copied by placing 
markers and inserting into the 
required place in the program 
or moved by deleting the old 
block after the copy has been 
made. Markers will remain for 
further copies until removed. 

The program can be search- 
ed for a specified string of 
characters which can be selec- 
tively replaced by an alter- 
native string. This is ideal for 
changing variable names. 

This covers the main 
features ofthe program which I 
find indispensable when 
developing programs. This is a 
must for the serious pro- 
grammer. 

ClivBG'Soott 




ow:j^ 



ProgrBm: Dynafast 

Supplier: Compusense, PO 

Box 169, Green Lanes, 

Palmers Green, London N13 

5TN 

Price; Unknown, Cartridge or 

disc. 

Dj^^a/asf comprises three pro- 
grams: Dynsfast, a Basic com- 
piler. Dyn&miser, a program 
compactor and Dynaret a 
c ross ref ere nee utM ity a II selec- 
table from an opening menu. 

Dynafast compiles a basic 
program Into a mixture of 
machine code and Basic, 
which, while not as efficient as 
a program written in 
assembler, runs much faster 
than a Basic program. 

To gain the maximum speed 
advantageall integer variables 
should be declared at the start 
of the program by naming the 
variables and the location in 
memory for them to be placed 
ie@30000ABC. 

There are four alternative 
modes of compilation Normal. 
Fast, Step and Print. Normal 
mode will display the progress 
of the compilation but slowed 
down so that it can be read. 
Fast processes it as fast as 
possible. Print directs all out- 
put to the printer whMe Step 
mode will stop and wait as each 
variable/iSneis processed. 

Compilation is done in 3 
passes. Pass 1 displays the in- 
teger vari a blest hat have been 
declared, Pass 2 processes 
each line and iindicated 
whether it was able to fully cr 
partially compile the line and 
Pass 3 is a tidying up process. 
Compilation can be paused or 



aborted any time - 

The compiled program can 
beautomaticallysavedundera 
specified name but the 
START. END and EXEC ad- 
dresses are displayed at the 
end of compilation and can be 
noted for future reference The 
compiled program can now be 
run by typing EXEC. 

DynamisBr compacts a pro- 
gram in three passes by first 
deleting all redundant charac- 
ters and spaces, secondly 
deleting all unnecessary 
R E Ms a nd last I y com bi n i ng as 
m an y I ines as poss i ble into on e 
long line. 

In all three programs a pro- 
gress report is displayed as 
each line is processed . 

It is advisable that the com- 
pacted program be saved 
under a different name 
because it can be difficult to 
read and edit. 

Dynaref runs through your 
Basic program and produces a 
table of all variabtes and con- 
stantslogetherwiththeall lines 
they appear on which can be 
output to the screen or printer. 
The table can be restricted by 
setting limits in the EX EC state- 
men t ie EXECiAZ will only pro- 
duce atableof Basic variables. 

It is invaluable for checking 
the variables that have been 
declared, particularly when 
modifying a program prior to 
compilation by Dyn&fast. This 
is a trio of programs which wii[ 
compliment any user's collec- 
tion of programming aids. 

C*fveG*ScoH 



Oranges and cream in Lucifer's land 



P rog ram : LucifBr 's Kingdom 

Supplier: Orange Software, 

Th e Ga rt h . S tar Road , Na nt- Y- 

Derry, Abergavenny, Gwent 

NP79DP 

Price: £5.99 plus 50p postage 

IT'S been a coupfe of months 
s i n ce I ' ve got rou n d to writing a 
review but at least now that the 
ink is flowing again l>e got 
something to rave about. 

Orange Software are the 
company providing the 
'raveable' item. It's only a few 
months since they appeared 



on the market but now they 
have a comprehensive list of 
titles, old and new, largely 
made up of text adventures. 
Ludfers Kingdom is an arcade 
adventure so it's perhaps un- 
fair to compare it with the ma- 
jority of their titles but I would 
say it's undoubtedly the cream 
of their produce. 

The Ki ngdo m of Lu c i f er i s set 
deep in space not inthe bowels 
of the earth as may be ex- 
pected but the obvious idea of 
exterminating the old devil is 
still ther^. The way to do this is 



to fight your way to him by 
shooting down hoards of 
enemy vessels which speed 
downthescreen atyou. Thefoe 

com es i n va rio us g u ises , som e 
that you can dodge and forget, 
some t h at track you , so me th at 
move vertically down the 
sc ree n an d ot he rs that z ig- zag , 
Whichever they are you never 
know what's going to come 
next a nd how m an y of t h e m . 

So far St sounds like a simple 
shoot-everything-in-sight type 
game. There is however a lot 
m ore to come th an th at . Fi rstly , 



yc u h ave 10 co I lect c rysta I s not 
simply a matter of flying over 
them but shooting at flashing 
C characters and gradually 

revealing them. This is not just 
to gather bonus points as in 
most games but a necessary 
part of the proceedings. 
because if you don't collect 
them you have to go back once 
the region is completed. 

A region in this game is a set 
of set of six pla nets , a p I a n et be- 
ing a phase as, say, in 

continued on page 8 
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Winners and Losers 



Every month 

Gordon L€« will 

look at som& prize programming 



TWO for the price of one- this month a^ we 
take a quick look at the April competition 
before t u rn i n g on r atte nt i on io ih e m ore d if- 
f icu It las k of ext racti ng th e sq u are root of 2 . 
W lien thinking about the April competi- 
tion I said to myself "Why not make it an 
easy one this Hms to give everyone a 
chance?" And, sure enough, we were 
rewarded with one of the highest entries 
6varywith the poor old postman bent dou- 
ble beneath the weight of mail. The great 
surprise came upon opening them to find 
that well over half of the entries had arrived 
at the wrong answer. The reason turned 
out to be the wording of the puzzle which 
said (among other things) "There is a 9 
among the cards but it is not the card one 
place clockwise from X". Now this was 
taken by many entrants to mean that there 
was only one 9 amongst the cards, 
whereas^ in the solution that I had in mrnd, 
there were two nines present. This was not 
intended as a deliberate attempt to 
mislead, honest. By way of defense I can 
only quote the well-known puzzle: 

Quest ion-> I have two coins totalling 55 
pence. One of them is not a 50 pence. What 
are the coins? 

Answer' 50 pence and 5 pence. (One of 
them. the 5 pence, isn't 50 pence) 

Anyway us i n g the i nfor mat io n g i ven , t he re 
were six possible sets of card values which 
ag rees wi t h t he i nfo r mat i o n g i ven . of wh ich 
the value of card X was 6 in three of the 
cases, 10 in two of them, and 4 in only one. 
The information that if you knew card X, 
you could determine the other values, 
clearly indicated that it is the last of these 
possibidlies. The fact that the exclusion of 
rmore than one nine eliminated this 
possibifity left many entrants with on)y five 
equally likely possibilities (some had even 
fewer, for various reasons), which resulted 
in the employment of much entertaining 
logic, and a fair amount of ingenuity^ 

A slightly more difficult task was the ex- 
traction of the square root of 2, to an ac- 
curacy of 125 decimal places. This was the 
competition for May, and, by contrast, the 
difficulty was reflected in the size of en- 
tries. But, congratulations to all those 



Dragonsoft 



1010 

'1020 
1030 
1040 
1050 

T-0 

1070 
1080 

1.090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
*11S0 

12010 
12020 
2030 
2040 
2050 
20ti0 
2070 
2030 
20?0 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
10*1NT 
2170 



DIM A (12^) .2l253r, Y<253) 

AK0)=itZ(lJ-l 
FOR M^l TO 126 

AfhJJ=S^T^l 

GOSUB 2000 

IF T=l AND Ya)<2 THEN 



A(NJ=9:T=0:GOTO 1040 ELSE 



IF Y(n>l THEN A(N)=A(NJ-1:G0T0 1040 

FOR 1-0 TO 2¥rH^i 

Z(I)=Ya> 
NEXT I 
MEXT N 
FOR 1=0 TO 126 

IF 1=1 THEM PRiNTtt-2, ". "i 
PRINT*t-2,F1ID*^£TR*EACI) J ,2M 
NEXT T 
PRINT**-2, " ■ 
END 



REM -If-^-J^ CALCULATION m^ 
REM ^^^ l^ . l K K X X "^^^-^ ^ ¥.^M ^^ 
FOR 1=0 TO 2*M+1 

NEXT I 

S^flfM)*A(Ni+V(2"}^N+i> 

Vt2*N+lJ=S-10*INT£S/10l 

y C2*NJ=Yt2-?^N>+INT(S/10} 

S-0 

FOR J=N-1 TO STEP-1 

S=2^A(Ji*A{Jvt) +YCM+J+1)+IWT<S/10) 

YfN+J+l)-S-i0*lNT(S/10) 
NEXT J 

Y(NJ=Y(N)+INTfS/l0) 
L-W 

IF Y(LJ>9 THEN Y CL-1 I =Y (L- 1 ) +INT (Y CD / 10) 
£Y<LW10i :L=L-1:G0T0 2160 
RETURN 



Y£L1=Y(LJ 



gallant readers who attempted this one. In- 
cidentally, two errors crept in to the answer 
given on page 27 of the August issue. The 
21st decimal place should be a 1 and not a 
2 as given , and the 46th and 47th dps have 
been transposed and should read '37' and 
not '73' (Listen, ! read that. I did. -^ Ed.) 
Now it will work using the multiplication 
routine from last February's Dragoo User. 
The method of computation outline in the 
Answer' section relating to this problem 
otidsed a technique which was intended to 
prevent too much repetition while running 
the program . U nfortunately, this resulted in 
a rather complex: listing — which would 
have been more of a hindrance than a help 



if it had been published. However, in 
res po nse to requests for a I i sti ng wh ich w i li 
do the job, here is one from D.J. Gray of 
Cleveland, shown here in his distinctive 
style of presentation. (When typing this in it 
is not necessary to include the spaces at 
the beginnings of the lines — these are 
there tor clarity.) The Print #-2 is used in 
lines 1120 and 1130 to send the result to a 
printer. To display the result on screen 
these lines should be amended to just a 
plain PRINT command (but don't forget to 
include the semi-colon at the end of line 
1130). The program will take about half an 
hour to compute the answer, but it will be 
given with absolute accuracy. 



New software for review should be sent to Dragon User, 
49 Alexandra Road, Hounslow, Middlesex, TW3 4HP 



Continued from page 7 

Scrambler For instance Region 
1 is Epsilion with six planets 
visited in the order Giotto, Max- 
ima, Minima. Prolox and Lex- 

iia. That's Region 1. There are 
four other regions Delta. Gam- 
ma, Beta and Alpha making a 
total of 30 planets to navigate 
and with only five lives. 

Particularly devious and in- 
furiating obstacles for the 
gamep layer are static 



triangular land based objects 
which only allow your bullets 
past if pointing upwards, if they 
point down to get them up you 
have to fire at them. However 
after the next shot they reverse 
again. If you can follow that ef- 
fectively 50 R^ of your by J lets 
get past but I can assure you 
that you struggle when your 
ammunitions fully flowing and 
to only have half can be 
disaster. 



This game reminds me of 
Vanguard an old arcade 

favourite of m ine. which shows 
how highly I rate this game. 
One factor that Vanguard had 
that this has, is addictiveness^ 
At first it's a bit frustrating as 
you try and comprehend 
what's happening and how to 
play your role in it, but after a 
few plays you become more 
and more determined to reach 
that next planet^ that next 



region with the next life of the 
next game. 

There seem to be quite a few 
good new games aboot at the 
moment and this is certainly 
one of them. If you've got a 
joystick in need of exercise it's 
cheque in the post time, 
because to conclude with a 
totally abysmal pun this 
orange is a juicy one, 

Phifip StQtt 
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DragonDOS Toolkit 

D J Gray adapts the Premier Micrusystems program for DragoriDOS 



FOR many people Premier Microsystems' 

ToolKit used in conjunctign with the Delta 
Disc controller has been a very useful addi- 
tion to t lie Dragon's facilities. 7oo/M was 
designed to work witii a Dragon 32 and a 
Delta DOS disc controller which was 
capable of containing an extra Eprom 
holding the Toolkit Editor Those people 
who moved to a Dragon 64 would have 
found thattheirparalielprinterdid not work 
when Taotkit was activated and those who 
m oved to Drag on or S u per DOS fou n d th at 
they could not install their Toolkit Eprom. 

The instruction manual supplied with 
Toolkit states that it cannot function cor- 
rectly with Dragon Data's disc system as 
DragonDOS rather inconveniently takes 
the current video screen as a work area, 
thus defeating Taotkit, also that the Dragon 
Data disc cartridge contains no e?<tra 
Eprom space for Toolkit io reside. 

Those statements provide quite a 
challenge but it has been found possible to 
use a Drag on 64 's extra Ram to hold Toolkit 
and with a DragonDOS cartridge attached 
make Toolkit operate. The problems to 
overcome were: 

1) To obtain a copy of Toolkit that can be 
read into a Dragon 64 's memory 

2) How to so m men the extra 32k of Ram of 
a 64 in order to store Toolkit in the correct 
position 

3) Toolkit contains a self destruct routine 
that is activated if it is held in Ram: this has 
to be defeated. 

4) Toolkit contains command words that 
are identical to some within DragonDOS; 
these have to be changed to prevent con- 
fusion, 

5) How can Toolkit be modified to prevent it 
ovenivriting areas occupied by Dragon- 
DOS when using the CLS, FRAME and 
IVIOVE commands. 

6) H ow can t he sy sie m be mod i tied to al I ow 
a parallel printer to be used when Toolkit is 
used with a 64, 

Toolkit when installed in conjunction with 
Del la DOS resides in memory between 
&HEOOO and &HF9DF. This can be copied 
onto tape by using CSAVEM 
^TOOLKIT':&HE000.&HF9DF.&HE002. 
This copy can be used later to place Toolkit 
into the Ram of a 64. 



Extra Ram 

To gain control over the extra Ram 
in a 64 with a DragonDOS cartridge 
attached i^ quite straightforward 
(remember that it is not 64 mode that 
IS wanted, only access to the extra 
Ram), Listing one is a routine that 
simply reads the information stored 
in Rom [Basic) and the DragonDOS car- 
tridge then places it into Ram. This routine 
also modifies the RESET to ensure that if 
RESET is pressed then the system will not 
return to 32 mode. Later this routine is 



LISTIMG I 

20 ;REri *** LOADER TO PUT ROM AND DOS INTO *** 
?0 IREM *♦* RAM OF A DRAGON 64 *** 

50 ; REM ************#*^^******^^*******^H(-******# 

60 ; FOR I=I.R4E2gf TO fcH4E5A 

7^ : READ A* 

90 : POKE I,yAL("fc:H"+AS) 

^<9 : NEXT T 

i<^^ : EXECtfH4E20 

1 ?fs : ' 

t?i<^ BATA SE,S0,00,1A,50,B7,FF,DE,A6,S4 

140 DATA B7,FF,DF,A7,80,8CpDFpFF,25,Fa 

150 DATA 30,8C, ID 

160 DATA I0,aE,03,EB,A6,30pA7,A0 

170 DATA 10,SC,03,FC,25pF6,10,8E,03,EB 

180 DATA 10,9F,72,86,21pB7,fiEpC5,lC,AF 

190 DATA 39 

700 DATA t2,B7,FF,DF,7E,C7,06 



4E20 
4E20 
4E20 
4E20 
4E?0 



* ASSEMBLY LISTING TO TURN ON * 

* EXTRA 32K OF RAM AND MOVE « 

* ROM AND DOS INTO RAM * 

■^^1^■fr^^1^TT##'^fr"S^f"^^^l^f'#^^+#'l^(■■^ 



'^B?0 


4E20 




ORG 


20000 ! 


4E20 






PUT 


20000 


4E20 


8E8000 


eSTART 


LDX 


ttS8000 


4EZ3 


1A50 




ORCC 


ltS50 


4E25 


B7FFDE 


LOOPl 


STA 


«FFDE 


4E28 


A6G4 




LDA 


,x 


,4F7A 


B7FFDF 




STA 


*FFDF 


4EZD 


A780 




STA 


,X + 


4E2F 


8CDFFF 




CMPX 


tt*DFFF 


4E32 


2SF1 




BCS 


LOOPl 


4E34 


308C1D 




LEAX 


RESET, PCR 


4E37 


108E03EB 




LDY 


tt«03EB 


4E3B 


A680 


LO0P2 


LDA 


,x+ 


4E3D 


A7A0 




STA 


.Y + 


4E3F 


108C03FC 




CMPY 


*»*03FC 


4E43 


25F6 




BCS 


LD0P2 


4e45 


108E03EB 




LDY 


4t«03EB 


4E49 


109F72 




STY 


«0072 


4E4C 


8621 




LDA 


tt»21 


4E4E 


B7BEC5 




STA 


*BEC5 


4E51 


ICAF 




ANDCC 


tt*AF 


4E53 


39 




RTS 




4E54 


12 


RESET 


NOP 




4E55 


B7FFDF 




STA 


•FFDF 


4F58 


7EC706 




JHP 


«C706 


4E5B 
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modified to overcome problem number 6 
and to automatically call Toolkit on startup. 

Whan called the rootine in Listing one 
switches tha 64 into all RAM mode but still 
behaves as if it is in 32 mode. Toolkit can be 
stored directly into Ram using the tape 
previously prepared simply CLOADM 
^'TOOLKIT". No offset is required. Do not 
be te m pted to EXEC at t h I s stage as you will 
only have to start again. 

Toolkit'^ self destruct routine can now be 
disabled. Listing two lines 30 to 100 over- 
write the destruct routine with No Opera- 
tion instructions (NOP) and a final Branch 
Always {BRA). 

Toolkit contains some command words 
that are identical to words used by Dragon- 
DOS. To ensure that there is no confusion 
some minor modifications can be made. 
The simple rule I have used is to change 
the second letterof the conflicting words in 
Toolkit to Dl Any other alternative can be 
made to personal choice Listing two lines 
120 to 220 make the following changes to 
command words: 

AUTO becomes ADTO 
ERROR becomes EDROR 
BEEP becomes BO EP 
ERR becomes EDR 
ERL becomes EDL 
FREE^ becomes FDEES 

Toolkit uses the area allocated to graphics 
to store pages 1 and above. Dragon DOS 
has however moved the position of these 
graphics screens tor its own use so there is 
a danger of ovenwriting Dragon DOS. To 
avoid this it is necessary to add two pat- 
ches to Tbo/Mthal modify the commands 
MOVE, FRAME and CLS. These patches 
are inserted using listing two, lines 230 to 
290. The first patch for FRAM E and MOVE 
is stored between &HFA05 and &HFAOF 
These patches are called by inserting two 
Long Branch to Subroutine commands at 
&HE565 and &HE556, These branches 
are inserted in listing two lines 300 to 370. 

Having added the patches and made the 
modifications it is now possible to save all 
the coding to disk by SAVE"TOOLKIT 
UTY''StHE000,&HFA0F,&HE002. The title 
TOOLKITUTY' is usad later in listing 
three as the title of the program to be 
autorun. 

The problem with a parallel printer, 
Dragon 64 and Taotkit is that Toolkit uses a 
part of Ram than a Dragon 64 looks at to 
d ete r m i ne if it is to use the se r i a I po rt o r the 
parallel port. This fools a Dragon 64 into 
bel i evi ng it is req u i red to se nd mess ag es to 
the serial port when asked to output to a 
printer. The startup routine modifies this 
check (it is all now in Ram), unfortunately 
though this also disables the serial port. 

The final listing number three is a patch 
for listing one. !t allows listing one to be 
modified so that when RUN it switches to 
Ram mode, modifies the print routine and 
LOADS and RUNs the program 
^TOOLKITUTY^ The patch is carried out by 
SAVEing listing one to disc (you must use 
the same line numbers as the listing), 
SAVE the patch to disc (make sure the line 
numbers are the same as listing three), 
then NEW followed by LOAD "Listing 1" 



LISTING 2 



- IH H t ** * * M M K I K K it )t K I * K H M K I It It K K M M 

TOOLKIT HOBS *** 

1 K It X X M"^f"")HHt"lHHE"S it ¥ K JH(")("")Hf"M"HI: "S")! 1 K K "ft 1' It 

REM -)(■# DISSABLE SELF DESTRUCT ** 

REM #^*^<-^HHt-^H^fr»9H^4^ ) ( HtKKKKKItKltJtKK 

FOR 1=0 TO 3 

POKE tME402*ltUii2 
NEXT 
POKE bHE40AfteH20 

' W If M W M ^f " VW W_W if _W W ¥ ¥ If ¥ ¥ ¥ If ¥ 1^ If ¥ If 

CHANGE COMHAND WORDS ** 

,nAfkfknnhnn3^f^^^ JIJlTCJiJiiifiii nnnnn 

; l£HEiE5,ScH44 

t.'HE201,lcH44 



10 REM #** 
20 REM *** 

30 :REM ^HHHt- 

40 : " 

50 : 

60 : 

70 : 

80 : 

90 : 

100 
110 
120 

130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 

380 

390 :' 

400 DATA 34,02i 

410 DATA 03, A7, 



POKE l£HElE5,ScH44 

POKE t.'HE201,lcH44 
POKE fecHE228,fi£H44 
POKE fcHE25C,ft^H44 
POKE fcHE260,feH44 
POKE fcHE247,fcH44 




END 



NEXT I 

FOR 1=0 TO _ 

READ AS 

POKE feHE565+I,VAL("fcH'+A«) 
NEXT I 
FOR 1=0 TO 2 

READ A« 

POKE &HE55i*I,VAL<*6tK"+A*) 
NEXT I 



400 DATA 

410 DATA 03, ^> 

4?0 DATA 49, A£ 



,02iFE,03,FE,A6,48,27,04,8B 
l,A7,48,A6,49,27,04,8B,03,A7 
',A6,4A,27,04,8B,03,A7,4A,35 
!,30,89,FE,00,39,39 

,00,27,03,C3,06.00,C3,05,E0,39 



410 DATA 03,A7,48,A6,49,: 

420 DATA 49,A6,4A,27,04,^ 

430 DATA 02, 30, 89, FE, 00,: 

440 DATA 81,00,27,03,C3,J 

450 DATA 17, 14,78,17, 14, < 



L I9TTNG 1 



*** 



40 :REM *** AND PATCH TO AUTO RUN TOOLKIT 
60 : FOR I=tH4E20 TO 8*H4E71 
150 DATA 30,SC.26 

190 DATA 86,22,30.8C,0C,9F»A6,7E,01,94 
210 DATA 22,54,4F,4F,4C,4B,49,54,2E,55,54,59, 
22,00 
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followed by MERGE "Listing 2'\ Now SAVE the combin&d Basic pro- 
gram; this is now the startup program, and when LOADed and RUN it 
wilf automatically activate 'TOOLKITUTY' 

For those who want to know the operation of the machine code used 
in the Basic listings the assembly coding for each routine is included. It 
is hoped that with the aid of these short routines those with almost 
redundant Toolkits QB.r\ dust them off and bnng a very useful utility back 
to life. 



4CF4 
4CF4 
4CF4 
4CF4 
4CF4 

F9FeT 
F^Eer 
F9F2 
F9E5 
F9F7 
FVE9 
P9EB 
F^ED 
F9EF 
F9F1 
F9F3 
F9F5 
F5»F7 
F9F9 
FIFF 
F9FE 
F9FF 
FAB3 
FyWf4 
FAffS 

Fftay 
FAer9 

FAflC 
FAflF 
FAlfiF 



F9E» 

FFaSFE 

A^4Q 

5704 

A74e 
A649 
?704 
3E0^ 
A749 
A£4A 
?7!&4 
8B03 
A74A 

30B9FFIffl 

39 

39 

B100 

2703 

C30£fl0 

C3i05EF 

39 



* ABKEMBLt LISTING QF PATCHF^ * 

* TO PREUFWT nn\I¥^ FRAffE AND # 

* CLS 0\/FffyRIT!MG URAfSHN DOS # 



ORG 
PUT 

HOWE PSHS 
LDU 
LDA 
BF& 
AD13A 
ST A 

NEXT! LTJA 
BE9 
ADDA 
ST A 

NEXT? LB A 
BEQ 
ADDA 
STA 
PULS 
UFAK 
RT^ 
RTS 
CMP A 
BE a 
ADUD 

NEXT4 ADDD 
RTS 



HFXTa 



CLS 



*F9E9 

«F9F0 

A 

«93FE 

8,U 

N^XTl 

f(*03 

BpU 

9,U 

NEXT7 

tt4£f3 

9,U 

10, U 

NFKT^ 

tt«ei3 

A 
*FE00,X 



NEXT4 
tt«(^600 



4E2Jff 




4E2ff 




4E2ff 




4E2ff 




4E20 




4E20 




4€20 


4e20 


4E20 




4E20 


GE8000 


4^23 


\A^0 


4E25 


B7FFDE 


4E2S 


A684 


4F2A 


17FFBF 


4E2D 


A7S^ 


4E^F 


eCDFFF 


4E3^ 


25F1 


4E34 


30eC2A 


4E37 


1^8EI?3EB 


4E3B 


A6e0 


4E3D 


A7A0 


4E3F 


IBBCB^FC 


4E43 


2SFit 


4^45 


iaeE03EB 


4€49 


1*9F72 


4e4g 


S621 


4E4E 


B7BEC5 


4E9i 


ICAF 


4E53 


8^22 


4E55 


30eCK 


4E5e 


9FA<i 


4E^A 


7Efll94 


4E5B 


12 


4ESE 


B7FFDF 


4E&i 


7GC7*6 


4E^4 


Z2544F4F4C 


4E72 





LODPl 



MMUKMiM#aKiiyii i imiriiJ[iJC M ii 

* ASSEMBLY LISTING TO TURN ON * 

* EXTRA a2K OF f?ANp MOVE ROW t 

* AND DOS rNro RAM THEN CALL * 

* ANir RUN TOOLKIT^UTY PROGRAM * 

Jlt'llfllfl¥1l ¥-¥-lf-**¥lF4i # 1 ff ¥i r ¥l'¥V¥ l Yl If 11 

m rt. M KiMJiHJiia JuTfTPTf K w VrHitJI SJ liJ HJI m Jf (TIF WT 

OI^G 2^000 
PUT 20000 
aSTART LDK M«e009 

mS0 

*FFDE 

,X 

*FFOF 

,X + 

tl«I9FFF 

LOOPi 

RESET pPCR 

i«03EB 

,X+ 

, Y+ 

tt*03FC 

LOPF2 

tt*03EB 

*0072 

4t«2l 

*BEC5 



LOOP 2 



ORCC 

STA 

LOA 

STA 

STA 

CMPX 

BCS 

LEAX 

LDY 

LDA 

STA 

CMPY 

BC5 

LDV 

STY 

LDA 

STA 



ANDCC tl4AF 
LDA 1I422 



RESET 



TITLE 



LEAX 

ETJ< 

J MP 

NOP 

STA 

JM*' 

FCB 



TITLE ^PCR 

C«A6 
*0194 

*FFDF 
*C706 
^ ^TOOLKIT- UTY-/p0 



DRAGON WIMP SYSTEM 

• • FULL FEATURE PACKAGE* • 

Command Driven from Ba^ic 

Joystick Controlled Pointer 

Flicker-Free Qrephics 

Super-Fast Command Execution 

Text On Screeri 

Text Windowing 

Automatic Storage of Pull-Etown Menus 

"Easi-Boot" — Boot or Auto-Bool (4.0) 

Commands 10 dc^ 

Boxes with Shadowy 

^'Blue'' Screen 

Print fcons (dustbins, disks, etc) 

Change PDinter 

Free Software Included on Disk- 
Full Feature Icon Designer 
(paint, move, flip, relate, etc) 
Painting Program 
"Front Panel" Program 
Over64 Icxsns included on Disk 

REQUIRES — 
DRAGON 64K, DRAGONDOS/SUPERDOS. FLOATING JOYSTICK 

• • ONLY £12.00 • • 

INCLUSIVE fUK)/OVERSEAS ADD El .25 P&P 

ordsrs to 

DRAGONFIRE SERVICES 

13 RftRRY JONES CLOSE, BLAINA, GWENT NP3 3hJH 

Written by Michael Edwards — Broomsoft Software Design 

Exclusive Publisiiera — Dragonfine Services 

© 1988 BROOMSOFT 



• THE FIRST NATIONAL* 

COLOUR COMPUTER CONVENTION 

- FOR DRAGON AND TANDY OWNERS! 

10am - 3pm 

SUNDAY, 4th DECEMBER 19d8 
The Arosfa Hotel 

Lower Church Road 

WESTON-SUPER-MARE 

EVERYONE WHO'S ANYONE FOR THE 

DRAGON AND TANDY COLOUR COMPUTER 

IS GOING TO BE THERE.' 

New software on display . , .TRY IT OUT! 

Bargains galore! 

Meet the people who support YOUf 

"You simply can't afford to miss this one!" 

• * £100+ FREE-TO-ENTER PRIZE DRAW • • 

For details ring Dragonfire Services 
TELEPHONE 0495 292088 (evenings) 

* + FULL DETAILS IN NEXT MONTH'S ADVERT!* * 
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PLAYBABY 

BBrnice Henessey's computer answers back to the offspring 



I N th e early days of th e Drago n , some to u r 
or five years ago, there were a great many 
trivial programs around, botti on sale in the 
shops and piiblished in the magazines. 

Since then th e sta nda rd has i m proved v© ry 
greatly — if you lool<: at last year's Dragon 
User there are some very good utility prc^ 
grams and a number of machine code 
games, but very little trivia. The only pro- 
blem b th at there is stil I a req u i rem ent for a 
certain amount of trivia. This program 
seeks to redress the balance. It is aimed at 
the 2-4 year old toddler who annoys its 
older brothers and sisters by pressing a 
random key just as they were about to zap 
thai last alien and go to the top of the high 
score table. 
Basically, the program lets you press 



any key at random and get a response. If 
you are slightly more selective you get a 

more interesting response. When a 
numeric key is pre s s ed , t h e co rrespondi ng 
number of jaguars (they should have been 
cats but tu rn ed ou t to be m ore menac i ng) i s 
drawn on the screen and a bleep made for 
eac hone (Figu re one). I f the zero is p ress- 
ed a twinkling star is displayed on the 
screen and Twinkle Twinkh Littl& Star is 
played (Figure two); if any other key is 
pressed a random sound is made and the 
screen cleared to a random colour with the 
character displayed in the middle. 

The program itself is fairly trivial and 
needs little description as the listing is well 
commented and there is a flow diagram in 
Figure three. The only point of note is that 



the BREAK key has been disabled by the 
'dirty' technique described in June 83 
Dragon User. This works for this program 
but could have disastrous effects on some 
other programs so it is probably safer to 
switch OFF and ON again after running 
Playbaty. 

Anyway there it is. a toddlers' introduc- 
t i on to com puters; it wi 1 1 kee p th em q u iet fo r 
at teas! a quarter of an hour, teach them 
that if you press the right key it will do what 
you want and also to count to 9Jt'$ a fairly 
short, simple program to type in, but if you 
want a copy and are too lazy to type it 
yourself, I'll send you a copy in return for 
£2.25 addressed to Bern ice Hennessy, 9 
Towcester Rd, Bl is worth. Northampton 
NN7 3BL 



J0 ^FL/^TB^0T 

20 ^CapTl^iGHT BERN ICE HEhlNES^T 1367 

30 '* 

1J3 CLS 

5i3..CLEf^F 500 

613 ^* 

7^ PEfl USE S. GpfUpMlC FPGES^FIRST 4 fORJrf=i 

GUfiRS jME><T ^ FOE STl^P 1\^ TELLDU^ NEXT T 

UD FOR STFiJ^ OUTLINE 

80 ' * 

30 FCLEnR 8 

1B0' Din' T*C42J 

110 FI^INT '' THIS GanE C^N BE"" 

120 PRINT ■' PLflTED PND ENJflTED P'Tf f^^TONE 



'IF ZERO IS PUSHED TU INKLE '' 
TUIMKLE LITTLE STFiR IS PL^TE 



' IF f^ NLiriBEl^ a TO 3 J IS FUS^P 

JheJ HFINY JF1GU(=^8S PRE PRl^WN,^' 
IF ANY OTHER KE^ IS PUSHED TH 

CHflRFiCTER I^ PUT ON THE" 

SCREEN ^HD Fi ^OUriD n^DE- " 
Tl^E<0RE^=^K>KET UILL BE DISPBLE 



130 PRINT ■ 

140 PRINT ' 

J50 FRJNT ' 
D. " 

15© PRJNT ' 

170 PR J NT ^" 

130 PRINT" 

E" 

132 PRINT" 

?0i3 PPlr^T'' 

21J3 PRINT"' 

D"^ 

220 PRINT^^ SO PRESS <RESET> TO STOP- ^' - 

230 PRINT 

240 PRINT "PLErf^^SE PUSH ^NT KEY " 

250 ' ^ 

260 REH J* DEFINES THE ShflPE DF TME JJ^GU 

FIRS 

2B0 J*^"C9R1P3R3EER16EJR6G1E2D1F2G1F2D1G 

?;LlH2L2G2D3F4RlD]L3H5LlD3lilDlL3;U4L4G2F 

2R 1 D J L 3^3Ur3G2D2R ] Dl L3y 1 2 ; G5L3H4 ; '" 

230 'i 

:300 REri DEFINE TUINKLE : TWINKLE LITTLE ^ 

TF^P . 

313 '^ 

320 DF^TFl L4C,C,G.G.F^,f!^pL2G 

330 nfiTf\ L4F*F,EjE.Cr,D,L2[: 

340 DI^T^ L4Gpl^pF,F.£>E,L2D 

350 DRTP L4G3G3F,F,E*E:.rL2D ■ 



360 DpTrf^ L4C,C.G,G,f^,R,L2G 

370 Df\lf\ L4F,F,E.E.D:D,L2C 

380 FOR 1=1 TO 42:REFiU T*t]]:HEXT I 

330 ^* 

400 REJI DRFIU STAR ON [iRnPHICS Pj^GES 5 

a,6,IK TELLOU Dt< SLUE i^ND GUTLINE UN PPG£ 

S 7^0 

410 ' * 

420 PnODE 1, 5 

430 i::0L0R2,3 

-140 PCLS 

450 ST^^'^en^^Q? 70jni I0,70inJ2S,3B ;ni4G, 70 

;ni3e. 70;ni56: Ii0^ni76w62;rii2^, i20;n00. 

I62pJ1Iia0. 110lf1?0.70" 
450 DRR^J ST^ 

PFIJNTCSI3, 30J 

PnODE 1.7 

COL0R2j3 

pt:LS 

DRRU ST-* 

610 REH DISABLE <BRE^K>KET 
620 REH CTHE DIRTT Uf\r^) 

J* 

PDKE4II.22S 

POKE412,,203 

P0KE413.4 
670 P0KE4 1^,237 
600 P0KE415, 22^ 
630 POKE410.236 

10J(a REfl l^iFlJT FDR KET PUSH 

1020 ** 

1030 IN^=IN!<ET* 

1040 IF IN*="" THEN GOTO }030 

1050 '* 

1060 PEn Ui^LCIN*J=0 JF ^LPMaEETJC OR ZEP 

KET PUSHED 

1070 '* 

1000 REPI FOR ?ERa KET PUSHED GDSUB1700 T 

PLftT TWINKLE TUJMKLE LITTLE STPR 

1030 REn FOR OTHER NUnERlC KET PUSHED G 

DSUBI390 TO DRRW JPGURRS 

n0a RgV\ FOR RNT OTHER CHf^RF^CTER GDSUBl? 

00 TO COLOUR SCREEN f^ND , IF POSSIBLEiPRi 

NT CNf^iR^CTEJ^ 



470 
480 
430 
500 
510 
500 



630 
640 
650 
660 
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^— 


1110 '^ 


14B0 DRpW ■'Bn"tX* + ","-fr«i--sa'-r<'Bnr35,-l ; 




1120 If lHi="2'' THEr^ GO£Uei710 £LS£ If U 


C4E1FJG1H1C8" 




flLtlKtJ-0 THEh GOSLI01210 ELSE G0SLJBJ31P 


1430 RlVi PPJNT Jf^GUflR 




1130 GHTO 1036 


1500 XP=X+33:TP-T;Pi^JNTC>;P,rFJ 




1 200 ' * 


1510 REn POSITION FOR NEXT JflGUfiR,IF i^NV 




12]0 REfl S£I RflNDOn SCf?££N COLOUR, PR J NT 


1520 ><-?<re5;T=Tt0 = IfX>200 THEN ><=4 :T=Tt3 




CHf*RftCTER(IF POSSIBLE) PMD HRKE SOUIND DE 


I 




PEMDJNG ON CHPFftCTEP 


1530 '* 




1220 ^* 


isia REn SLOLJ THINGS nnuN 




J 230 CLS RNDC3)-1 


ISiDfl '* 




1240 PRJNre20e. in*; 


1560 TinER''0 




1250 HT-f=«SCt JH*J*:3:SDUND MT,B 


15;'0 IF TinER<10 THEN GO TO. 1570 




1260 RETURN 


1S80' NEXT J 




1300 ' i. 


1590 1?ETURN 




1310 REH NUflERlC KET PUSHEP, BUT HOT 7EI? 


1700 '* 




a. 


1710 REM PLPT TUIINKLE ,TUJNXL£, LITTLE 




1320 REn DO nPPRGPPIflTE MUnBER OF SOUNOS 


STAR flND DRpU STfiR DN SCREEN TUJNKLING T 




PNP DRRU JflGUFiRS, USJNS BUFF SCREEN f*MD 


EL LOU ON BLUE 




ORf^MGE J^GUI^RS. 


1720 'A 




1330 "* 


1730 PrODE 1,5 




13*10 PnODE t3> 1 


1740 REH FLf^r TUO NCTES FOR EACH 1^ THERE 




J3S0 C0LORe,5:FCLS 


ARE 42 NOTES IN TUNE 




1350 SCREEN 1> 1 


1750 J<=0 




1370 ><=1 :Y = 10 


1760 FOR 1=1 TO 21 




1390 REn >~.r f\RE USED Jt POSITION JpGUflR 


1770 FOR J =5 TO 7 STEP2 




1330 N-^JPLC JN*J 


1730 FnODEl,J 




1400 FOP J -J TD N 


1730 SCREEN J,e 




.... 14ia SOUND 36,5 


1600 K^Ktl 




1420 X4=STP4tX] :"ir4=STR«i:Tj 


1810 FLprT*CKJ 




1430 '* 


1820 N£XTJ>J 




1440 REr DRFIW JflBUi^R OUTLJNe 


]S30 FnDPtl,5 




1450 '* 


1840 SCREEN 1.0 




1450 DRf^U "Bn*"T>4*T", "+Y*+"Sg"i-J« 


1350 RETURN 




1470 FEH DRFiU ETE 


1360 END 





Crossword 



Please getyouranswersinto Dragon UsBr Cfossword Departm&ni by 
the end of the month on the front cover 



The eleventh Dragon Crossword rolls crisply out of a 
neat white envelope, dressed to kill, and regards ... 
the ninth Dragon Crossword, as it crawis damply 
from under a pile of slowly-rotting press releases. 
"Don1 worry, old ohap." it snaps briskly, ^'the Editor 
will get around lo throwing that lot away soon. You'd 
better freshen up, because D O Cuin of Armagh has 
written to tell you that he would like a Quickbeam 
game, any Quickbeam game, and Patricia H ill of Sur- 
rey (an old friend of yours) is looking for an adventure 
of some sort. It's a good life out here, you know." 

"Ha", mutters the old Crossword, "You wait till this 
time next month." 

The phrase is HIRES GRAPHICS. 

There will be a couple of free tapes from the 
Editor's Magic Bottomless Box for the first correct en- 
tries out of the hat each month. You can try telling us 
which tapes you'd like — we may have them. 

1 Dr. Who's a famous one, so fans cram around. (8) 

2. Nail the globe — Tommy was a wizard at it.0 

3. Air speed car$ make unfriendly aliens (5,7) 

4. Do call in at six to find adventure (7,6) 

5. First recipe for grand prix? (7,3) 

6.& 7 Pity red tiger was mad about his daily log (10.5) 

8. Martial art of Grasshopper? (4,2) 

9. First one raid, errant jewel thief revealed. 

10. Learner in top hat knoci^s things o^er. (7) 

11. DeaJing is a jobbers^ task, says Yosser. (3,1,3) 

1 2 S u b m ari ne captai n m ig ht say it to have a look . [2,9} 
13. Are rush takers troubled by big fish riches? (53) 



All this month's answers 
are names of Dragon soft- 
ware. When the crossword 

is complete, the column 

marf^ed with an arrow will 

spell out a phrase. 
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Music Catalogue 

Anthony Daniels' database has records but yours could have recipes 



THE value of writing your own programs is 
that they can be made to do exactly what 
you want whereas any professional soft- 
ware has to cats r fo r m any d i f f ere nt n eed s. 
All my family play in orchestras and we 
need to keep an extensive library of music 
on cassertes and records as well as printed 
music and so we have a catalogue and 
quick reference system on computer. Pro- 
fessional databases tend to talk about 
defining fields and being generally 
obscure and abstract. My program re- 
quires none of thi is preliminary business. It 
operates In a number of short sections 
which will List, Edit, Store, Sort or permit 
Analysis, and every entry is stored in a 



single string which although limiting its 
length makes handling much easier. One 
can apply ihe techniques demonstrated to 
all sorts of things so I trust it will prove In- 
teresting. 

The menu is stated in lines 70-170. The 
first task is to make up (he catalogue and 
this is done with the command LIST. The 
first heading is Composer If you press 
ENTERonly, you will get the same name as 
on the previous entry and this applies 
t h roughou 1 1 h i s section . I f yo u wish to bave 
this section input '@\ To advance to the 
n ext entry p ress " o r to go bac k press eit he r 
-or 'l', the former wiliclearthe previous en- 
tries, the latter will preserve them« 



Next in this section comes the type 
of piece. I have included a shorthand 
here. If the right hand character of the 
entry is a Y it will be read as Symphony, 
an X will be read as Sonata and a Z as 
Concerto. If the word you are writing 
ends in one of these letters then just 
add an extra space after it. Having used the 
shorthand you move on to a further input 
which allows you to enter the number or 
key (Use D; for D major or E- for E minor). If 
you wish to enter both a number and key 
then type it i n longhand. I n al I these entries 
avoid the use of commas otherwise the 
disc drive may read them as end of string 
markers. 



5 'MUSIC CATALObUE BY A. DANIEL 23/11/37 

18 CLEAR^MBB ' 

20 ERftiR ftJTOM: ^OPTIONAL EHflOR TRAP - ONLY AVAILABLE tJITH SyiTABLE SOFTWARE iE.S.SUPERDOS} 

30 DIME$(30fl),"SE3a0i,Ut(2fi) 

50 A=0t5C^TQ7S 

ie CLSB: PSINTai88/ERR0R"}sFOR >1 TO 503: NEKT 

70 (1S4! PSlNTS9?»"fead - Urite - Li^t - Edif ; 

gB PRINTai3i/A^aly^is - SDrr"pPRINT5159/ iF3?ESS APPROFIATE ^^TTER)*=PRINTs PRINT 'PHESS V TO CLEAR CURREhfT FILE' 

90 Tt=!NKEVt! IF Ti=" ThEN ^E 

10B IF T*="L^ THEN KSUEi?0 

Ua IF Ti^^E-^ THEMbQSUB7« 

120 IF 11=' ft- THEN GOTO 1240 

3 IF T*=-y'' THEN 5(SijE4tfl 

149 IF T*=r/' THEN FOR Fa=l TO UE: E*(Fej=^"SNEXTsUB=fl;A=a 

150 IF TI-^S" THLS^ SOSUBloSH 

163 IF Tt='fl" THEr^ G0SuB513;SuSiEli7fl 

170 SftTOTiS 

laa 'LISTING E^fffilEB 

193 IF AE-1 THEN CLS^PRiNTi^l6,£K^}i A-A-U 5DTO210 

230 CLS:Al$=At:Bi*=E*:Cll-Ci:El$=E*: Et(A)^Af+" '+Bf+^ "tCfs Al^*':3l="^rjM":D*="":PRINTa41A>£$(A) 

;i0 PRINT3B,A+U:PRINTS32,"C[JnF0SER^ilNPUTAt 

220 IF At-"^' THEN A^+ls CU5: PRINTa^lfc^EKA);; S(FrO210 

23a IF At=''" AND A>a THE?^ A^A-1- QlS' PRlKTa4ii,Et[A)?: fiOTO210 

240 IF Ai==r Tn£N ^WH 

aa IF At=^« AND A;l THEN At=AitiFRINT343,A* 

260 IF Al='=-^ AND A>1 THEN f^hU AI='^eM-"sCI='^^:SOT*200 

27a PRIN^;INPUT= PIECE 'iSI 

275 IF Et=^' A^^ A/1 THe^ Bt-^l*:PRMTaiff7,Bt 

280 IF RIGHTt(Bt,l)='Y^ THEN I.»=LtFT1i(E.*iLENatl-l!t'SyRPHOhV^-GO5iJB3^iGOTO330 

290 IF RIGKTllB^jD^'Z' THE^ B4^LEFT*(BtpLEtv(Bti-i:t-ceNCERT0°:GO5UE36fl!SOTi333e 

320 IF RIGHT»(E*a5="r TfiEN Sl^L£FT*(B?iLE^j!P}-U+'3*jATA^Guft^B3fi2:6OTO:530 

313 IF RI^HT*lM,i!=^" THS. BI=LEFT*fBt,LEN(E*J-l): (HT033B 

320 IF LEN!W)>i AND RIG^Tl(3^jl)=' * TH£K B4=LE"T*(Bt+LEN<M/-l)? 5->SUE3i2;5uTO330 

338 PRINT: INPUT ^1?EFE??ENCE ■;£* 

335 IF C$="' m A>; T^N CI=Cit:PSI<4Tai71,Cl:F0R J=l TO IMasfiH 

348 HI^LEFT?iCf,i^! IF Hi^'H' CR H%='r OH m="¥' THEN h=A^V> E5TC280 

353 IF Hi-V THEN Si)T{ei0 ELSE 332 

3ie fRINTMUNPUTDS: sF VALii>S)>0 T}^EN D*="ND/'-iDI 

37g IF aiSHTI(Df,l)='i" ANE LEK(DI)>1 TtiEN •H^'l^ ^+LEFTimt,L£^(2l)-l)+° MAJOR" 

380 IF RIciHTt(D*,l)=^-"^ AKG LENi[)f;;i THES 31= "IN "^EFTS(&t,lE^i[D*J-l)*' MINOR" 

398 E*-EI+= ^^Df JETUffi^ 

ii00 ^W??!TING TfJ DISC 
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Finally enter the reference. The first let- 
ter must be C for cassette, R for record or P 
for printed music — or choose you row n let- 
ters. Anything can follow them but you will 
not be able to make another entry unless 
one of these letters is entered. If you ha^/e 
made a mess up and wish to redo the entry 
completely enter 71 

Having made the list, you need to 
WRITE it onto the disc. Of course you c^r\ 
enter a single fife on cassette but sear- 
ching for multiple files on cassette is rather 
a problem, ^tnd the analysis section which 
provides the real joy of using the program 
only wo rks well from disk. The n am &s of the 
files are read from data line 1720, one for 
each letter of the alphabet but. as you can 
see, f have grouped some of mine together. 



Th e no mbe r of f i I es depen d s o n the s i le of 
your collection. If you put much over 100 
entries per file sorting becomes rather 
slow. The disc syntax in the program is for 
SuperDOS. 

To R E A D t h e f il es requj res no s pec iai ex- 
pla nation so I will move on to EDIT mode: 
Up and down arrow keys display all the en- 
tries or p ress i n g Q or A m eves u p an d do w n 
the file quickly displaying only when you 
remove your finger Pressing 'D' deletes 
and entry while 'N' adds a new space. 
(P ress V an d go to L I ST to act ua I ly put i n t he 
details.) P' prints out alt subsequently 
d isplay ed f i les a nd 'O ' tu r ns th e p r i nter off. 
Pressing '.' returns to the menu at the point 
at which you entered it while V takes you 
back to the number you are displaying. 



You do not have to put new entries in a 
particular slot. It is probably best to enter 
them first, then READ the appropriate file 
and then SORT The sort routine only puts 
the composers' names in order but you 
could extend it although it might become 
rather slow. The routine can be seen to be 
working by the changing colour screens 
and partial printout. 

Finally there is the ANALYSIS section. 
This is largely self explanatory from the in- 
structions on the program. If you wish to 
modify this section for use with a single file 
o n cassette m ay I d raw you r attentio n to th e 
REM in line 1280. The fifes for analysis are 
read direct from disc so you should save or 
clear (7') any files already on the program 
before starting that section. 



428 
430 
44fl 

= 00 

522. 
5^G 



IF u3>A THEN U=UB ELSt L-A 

IF St=-* THEM GOSUEbSe 

KlL^QtiMNi^I^NAPE OF FIlF";5|: m^^-^^MJ' 

"" Il h i I Ly+ i U 
? :JR £=a TO D 

tU- E 

':LS6;PR]NT'^^iTE THAT TOP JJUf^SER Iti USE IG ■; 

rr Um Ti£N PRINT'-^: 1=13+1 l^SE P??!MA:|jE-AiL=LE-; 

IF L=a THtf- ,=1 

r3i:^^T'-L?TTES ,vF Al^hI^IEI ^ECJIRtD" 



56B IF INKEVtO" THEN 5i0 

57& TEI=INKEYS;IF TE4=" THEN 578 

iSS IF ASC(TE$!>M M) ASC(TEJ)<?6 T^el 5t='Ml."+U$(A$CiTEt}-64}+',£'AT* ELSE 50Ti)553 

5™ JIETURN 

iM FREAD6t;U 

610 FOR 6H. TO U+L 

629 FflEADGi;E$(G) 

i3ff NEJ(7 G 

6*0 CLOSE 

650 UB=l>H:L=i:A=3!El=J:E=i:REruRN 

^0 'SEPARATING ENTRIES FOR DISPLAY PURPOSES 

67fl J=IMSTR(l,E*iaJ,' •): IF J>0 7r£N l*=LEFT$[«iGi,J) 

690 K=lNSTR(J+2iE*{5n' ■): ]F K>e THEN MI=f1IDIiEt':GJ,J+3,K-J3:!^J=RiSHT|(t$li),LEif:E?(fi))-K) 

a?B IF PR^2 THEN RETURN ELSE PfiINTaH,L!t! PRlNTaH+i^iNJ! PRir^TiH+25,i1$: IF PR=1 Mi PS-1 TKEN 7C0 aSE 720 

780 S0EUBifl7a 

7ie FRlNTi-2,G,L$,fl*,NI 

720 Lt=":h»=*"!M4=":ftETUfiJI 

730 'EDIT SECTION INCLUDI^5 SUERuUTL-iiES 

748 CLS^; E=ft: El=A:50BDB117B!R=fl:S0TC76« 

750 R=e;G0SUEia2fl 

7i8 ' 

770 IF Pc£K(341)=22j THEN PfiIHT3X)!+5,CHRtil43)|!E=Efl!XX=^)(+i4: GOaiEBBa! P;?MaXX+5,CHftt(255)f !H=iK+7:5=E!PS=l 

:GOSUB670:PS=0: PRINTS 
)()(,£! I. GOT075fl 

783 IF PEEK{344)=247 THEJi (SCSy^l05C 
790 IF fEEK(333)=239 THEF? PR=i 
QM IF PEEK(345)=247 THEN PR=a 
B10 IF ?E£Kt339)=239 THEN £=E^:!GO£UEl;40iKTO77fl 
928 IF ?EEh'(33'?F251 TffiN t=£'i:fi:'3US114a!Gi:iTO770 

938 IF PEEK(342)=r3 THEN FRlNTa)()[+5,i^St!l«j;:E=E-l:i)(=XX-64: S^SUB3e^:FRINT30+5,(3^St(255)ifG=£;H=K)(+7!P5=I 
;6ySUBi7fl!P3=8!PfilNTSl)( ,£;; 5OTO750 

84a IF PEEK(J44I=253 THEN (^=El!ftt=lJ RETURl^ 

850 IF PEER[342i=253 THEN A=E: AE=i; flETUflS 

060 IF PEEK{342)=25I THEN £JlE)=*'!PfiI^=T3XX*": 5OSUB1170; U=^m GOSUBBB0: R=i! 6010760 
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870 507075(3 

age if £;-50e T^£N E=5fl0 

aw IF )[X>4i4 THEN U^fH GOT0?2B 

Wa IF E<0 ThCN L=3: *:i(-XX+W 

910 IF KK<0 THEN :iiV=4ici S0TiJi*78 ELSE i^ETURN 

920 CLS4 

"Pafl FOR R=8 TO i 

948 IF iE+i?)>500 THEN 950 ELSE M3US1023 

950 ^EXT 

^6fl flETUfiM 

970 as4 

936 Fufl R=a TD -6 STEP -1 

990 IF (c+^)<0 Tfim 1800 £LSt ■aOSi.!Bie;2 

\m l£XT 

1310 RETURN 

101^ IF Eti£+fi!='" THEN PRiMTaJO(-rl5tff*ii,'N0 Zi^/\'\i?R: 



\:5JfS+btfl^t4,Crtf(1.239:!t £l£p ■5^tH:H=Wf7+R*t4:GCiSU3i70 



law FRlNT3n+fi*i^4,E+??i 

im reti;rn 

105S IF vm THEN :JE=A 

:270 FOR T=iJB TO iE+l) 3TEf-i 
1000 E$(Ti=Et(T-n 
1093 NEJ(T 

UM E$fEi='NEw*: FRINTiH+SlijEliE): PRIMTaXK.E; 
Ilia IF XX<41i THEN Tl-XX: T2=E 

1120 12^T2tl: Tl^Tl+fi4! IF TKWB THEN 6=T2:H=Tl+7:&5£UBi70: PRlNTaTlJS;: G0Tftll2fl 
U30 RETW 
IIM IF E<e THEN E=0 
1150 IF £>580 T«EN E=5W 
1160 PRWTa488,Ei ifiETURN 
1170 B2=^l! If UB<A THEN UB=A 
1138 FOR El=l TO UB 

1198 «=E*(Jn! IF C*=" THEN 12iB ELBE E*(E2}=C|: R2=B2+1 
12W IF Bl-112-1 THEN 12iB ELSE EffEl)="' 
1210 mi 

1220 B2=B2-1: UE=i2; RETURN 
12:3c MMALVSI3 SECTION 

nm FL=0iPF=e:PR=2:CLS7: PRiNTSSt, "OJTER EITWEfi COMPOSERS S NANEOfi A LETTER OF ALPHAIET FOR ft 
PARTI CJL^R FlLE';PRINTai32,'T0 SEAftCH THE PROGflftHME IS COdPLEl IN ThJEEE LINES EUT 

mmn ah the files for the contents of m iNDiyiDUAi tape ok a particular piece p«ess 

1250 PRINTa260, 'ENTER '*• TO RETURN TO OTHER?ARTE OF THE PROGRAMME': INPUT 5* 

1260 IF St='S' OR S*i" THEN 1248 

1278 IF LEFT*! St, 1) ='3' TtfN St=RlSHT$(S*,LCN(3«}-U: FL=l ELSE T$=LEFT*(S*,n 

1230 'VARIMLE FL AMD LINE I31fl DECIDE WHETHER ALL OR 0?(LY 1 FILE IS TO JE SEARCHED. 

12-90 JF p^=l AND LEN(S$J=i TH£N r5t=SI ELK FG1=' " 

13M IF Tt='*' THEN PR-0: KiT073 

1318 IF ASCiTi)>64 AND ASC17t)<L9i THEJJ 5*-'ML^*U*(AS(^fT*)-i4>+',DAT° 

1328 H=! 

1530 G.32! PRINTa33, "ENTER FUfiTHtR CRITERIA uP RRESSENTER IF NuNE"iIN,^UT 314 

1340 IF H=l AND LENiS<)=l AND Sl*<>" T^EN St=Sll 

1358 IF Sl»<>°" THEiV T«[H)=S1$: i;0SUEi593! H=H+l! GCiT0133a 

1368 IF LENi3$}-i ^Nj 5it=" THEN 1243 

1373 iF FL-E TJ^EN 1400 

1Z30 FOR !4=1 TO 2i 

1393 IF WM AND 'J*ii^)=U*(W-ii THEN 1528 ELSE 5t='ffi.'+Ut(WH'.iJAT^ 

14B8 G0SUE6® 

■410 FOR 5=1 TO L-S 

142! IF F5«<>-' GOSyBli|0:IF ?F=I THE.M 5OSUE:53a!5OTOi440 ELSE GOIOH^B 

1430 IF IfffiTR(l,E«(e),S$)>a THOJ PF=1:5OSUEJ530 ELSE 1498 

:440 IF PF=I THET, S0a!167flrCLSi;PRINT!PRIf^Lt:PRINTNl:PR:NT!t»!^R;^TiPRINTHHf ; PF=2; GOTOli^a E^ S? '«^0 

1450 It=lNKEYf:iF I«=" THEN 1*50 

1440 IF It='P" THEN 5r:i5J3207B:PRINT#-2,Lt,Wt,N4 

1470 Lti":Mt="Ef/ti" 

iAQ0 IF IJ='V' THEN fiOT0l2'!tZ 

i49B 7JEXT Q 
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1530 IF FL=1 TfO NE^T u 

15 la FL=0! FQ$=" 

1520 GOT0124S 

1530 IF H<2 THEN RETURN 

15A0 H.=l 

1530 IF FG$=T»(HL) TtEtJ MTC)157B 

15ia IF lNSTR(l,E*(G),T*(HLi)>3 liei ?F=1 ELBE 

1579 IF PF=1 mSi hL<H-l THEN HL=HL*t: GOTO1550 



PF=3 



15913 RETURN 

I5V0 IF LEP*(T*(H)>=1 AND FS«=" THEN FG$=T!|i{H) 

[600 RETUfiN 

1610 if INSrRM,£HGn3t}>B THEN PF=1 EL^ PF=0: RETU^!^ 

I62BFJ=LENiEI(5)) 

ti3a FJ=FJ-l! IF FJ<t THEN RETURN 

1640 *F MIWi El (5)^112)=' '+FSt THEN PF=l: R£TUflN 

li5B IF I1IIi|(E$(&),FJt2J=" ' THSI flETURN ELSE PF=8! 50TCil432 



1670 

1690 

170B 
1712 
1728 
I73Q 
1748 
175B 
1764 
1773 
1730 
!?9e 
1S00 
iei0 
1B20 

1^43 

:3i0 

:e7a 
:^0 

1S9D 
1900 
1910 
1920 
1930 

1950 
I'Jaa 
1970 
;9S3 

..m 
:0sa 
:0^8 

2050 
20^0 
2870 
2030 
2B90 

2iea 



FOR Jsl TO 26 

[£A[f U1i(J> 

NEn 

m%-' IF YOU WISH ANY ENTRV TO BE ?R1«TED OUT PRESS 'P' AFTER IT IS DISPLAYED ON SCflEEN, aSE 

PflESS *N¥ OTHEfl KEY FOR r£XT ENTRY. TO flEOEFINE SErtRffl f RESS ' P ' 

fiETUfiN 

'NAMES if FILES* ONE FOfi EACH LETTER OF THE ALPHABET 

DATA fl-E, A-6, C-D, C-0, E-G,£-£,E-S, H-L,rt-Li tt-L, H-L, H-L,M-M,H-P, N-f , N-P, Q-R.Q-R, S-S, T-V, T-V,T-V,«-Z,y-:,U-Z, U-Z 

'SORT ROUTINE 

Z=iJJT(I/2)!lF Z<'^ ^tEN (»5UE2fll0!f5TU.RtJ 

¥=f12-Z!ri=I 

K^IZ 

iF ml3*iCt(J!),P,lK-.1lS$iC!tiiK!i}iP,l) THEN iS20 

yt=CiaJ: •:i[Xi=(:iax!:C*a)(J'li*:Fa!^TC*(X)iPRIhfTC41!;)[):i{=)(-Z 

IF X>=1 TdEN 17B0 

:z=zi*i 

:f :z<=v the^ htj 

GOTO 1750 

509JB{:73 

•:LSItl= : : A5=i ;31=i :3->!JS : P=l iSOSUSl^fiiSiS^SUSma 

S3=L+i: £^=l: g=i: P=2 

SO3UJ1930 

IF r1j=0 THEN S3=S2+25 34=92^1 iSOS'JB 1933 

IF Pq=l W^i ?>>ii F-?-i; 0=Q+:: if P>j then RETvFS^ else S3=i.+i: 54=L: SOsi;E1930: GyTCiia9B 

GDT0ia98 

SETURU 

IF .«I0li(ES(a3),Q,!)=Mlfit'El-=3-lJ,q,J) Tfffiy S>53+I ELSE G0T0195B 

IF £3>U3 TntK ?Q-i ELSE £075193^ 

Si=54f 32=53-1 iAB-i: JJ-!l\; ■?;-:: CLSJu': KSUSi9t,a:£cibUE1740: RET'jRfJ 

FOR AA=S1 TO S2 

CS[AB!=^l:AA)i AB=A3n 

NEa" 

t12^-.' 

i!ETUi?N 

Jn. hM-Id ! J 3^ 

tt!AA)=C$(ABi!ft£=AE^l 

NEXT 

ft£T'JR^J 

'FSJ^TEf? PREPARATION - NOTE PRINTER CODES IS LINE 2078 FdS SMALLEST TYPE ON DI1Pil5 PRINTER MAY HAyE TO BE MODIFIED 

IF HC=a THEH PRINT#-2,CHRI[27l;CHRS(2fl)t hC=l 

IF IcNlLlKlS THEN IML$+' ■:5yTO2830 ELSE IF LEM(L*)>1B 7H£N LI-LEFT*(L$)i8) 

IF LENii1i;«.:55 THE?* m=m*' ":5nTO20'?fl ELSE IF L£N(MI)>55 THEN ftt=LEFT$(MI,55) 

IF LEFTt(W,n=* " THEN Srt=i3I^T$(Mt,LeJvNI)-lJ:SOTO2l0B 

RETURN 
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Phoneticode 



J F Rowles second-guesses spellings for sorting. 



THE successful operation of data files for 
say names and addresses, books and 
authors^ record collections etc. is very 
dependent on the sort-keys used for 
retrieval of data. In most oases the sur- 
name is used as the primary key for 
rmnevaL While this operates very suc- 
cessfully, instances do occur where uncer- 
tainty of the exact spelling oan result in 
repeate<J attempts of all known variants or 
a range select I on being m ad e. As a n exaTTi- 
plOs consider the variations found for 
'Sn^ith' A perusal of my local telephone 
directory revealed the following 
possibilities: Smith. Smeeth, Smit, Smidt. 
Smyth and Smythe On a simple database 
this would probably involve a separate 
search for each of the variants (assuming 
you are aware of all (he possibilities) or a 
range selection of say SMAAA \o SIVIZ22, 
which of course will select all data com- 
mencing with the letters Sm; which on a 
large data base could be quite extensive. 

A method much used by professional 
data base enquiry systems is to interrogate 
the fiie^ for phonetically similar names 
where the exact spelling is unknown, or 
aitern ati vely to chec k i nitial I y fo r t he bel i ev- 
ed correct spelling and if no match is found 
then resort to phonetics. This has much to 
commend it in that you may be making an 
enquiry using ihe correct spelling but the 
original data was entered incorrectly. 

While this may seem a daunting pro- 
spect to expect the simple home micro to 
perform such a task Jt is in fact fairly easy 
to achieve The system detailed below is 
mod el I ed o n o ne of the systems used i n th e 
p rofess i on all data hand I ing wo rid . 1 1 s ho u I d 
be realised that phonetics are language 
controlled (spoken that is, not computer), 
and any phonetic encoding will only work 
on the language for which it was designed 



and to a lesser degree on similar 
languages and not at all on others. 

Successful phonetic encoding merely 
requires the grouping of like-sounding let- 
ter together, as follows: 

1.B.RRV 

3. DJ 

4. L 

6. R 

Try saying them phonetically as a child 
does (or used to in my day) when first learn- 
ing the alphabet. See the similarities? 

Them ore ast ute wi 1 1 have not iced that al I 
the vowels together with Y, H and W are 
missing from the above groups. These are 
totally unnecessary for phonetic encoding 
and are ig n ored u n I ess th ey a re the f i rst let- 
ter in ihe word or name. Try it yourself and 
see. Pick any word at random, write it 
down, pronounce it out loud, then rewrite 
the word omitting these letters and attempt 
to pronounce it. Unless you are very 
unlucky the second word should be 
recognisable to the ear- This is the basis of 
phonetic encoding. 

Now to practicalities. The code is 
asse m b I ed by retai n ing the f i rst letter of t he 
name or word to be encoded as the first 
charaoler of the code. Subsequent letters 
are tested for consecutive duplication, on- 
ly the first occurrance being retained, and 
rhese letters are then assigned a numeric 
character according to which of the 
phonetic groups they belong. The whole 
code is then retested for consecutive 
duplication and truncated or expanded by 
the addition of trailing zeros to four 
characters long. This then forms the 
phonetic code of that name or word. 



9003 '*** WRITTEN JULY 198^ '** ^^ G05UB 9 000 

9.0134 ■*** E^KOGRAM ID *** 40 PRINTING rCODE$ 

^005- '*** PHONEtlC-BAS *** 5{j GOTO 20 

9d06 '*** C, J. F. ROWLES *** 

900s CHECKS =LiiPT^i;iH^* 15 

9009 IF MIPS (LlJS P 2,1) =CHECP$ THETN Yi=3 ELSE Y=2 

9010 FOR X^Y TO LEN(1NS] 
901L C?=MLD$UW$K^^11 

9012 eOSUB 90L9 

9013 WEXT 

9Dlfl GOSUE -^027 

9QL5 IF LENIC0DE$I'>4 THEK C0DE$ = LEFTS < C0DE$ , fl ) 

90 16 IF LEMIC0DE$K4 TUPN C0DE$=C0DE3* '^0" 

9017 IF LEM(C0DE$K4 THEN 9016 
flOia RETURM 

&C-I9 IF C$="B"OH C5'^''F'*0R CJ? = ''P'* R C$=''V"T]H1H CHECK5=CHECK$+ '^ I"ELSE 9020;RETyBE^ 

9020 IF C^ = '"C**OR C5 = ''G''0R C5*''J'*0ft C$="K"OR g$*"0"OR C:S*"S"Oft <:9 = "X"0R C$="3'' 

THEN CHECK?=CKECK$*"2" ELSE ^Q 22: RETURN 

9032 IF CS^'D" OR C3 = '*T* THEH CHECKS •^s::H£CKS ^^'*S" ELSE ^D23:RETIJRM 

5053 IF CS"'"!-" THEH CHE<!K¥=CHECK5 + "4" EL$E 9024 : RETURN 

90?fl IF C$-"M" OR C$-"M'' THEH" CHECKS =CHECK$*''£'' ELSE 90 25: RETURN 

90 25 IF C$="R" TT^EM CHECE^S -:::HECKS + " 6 '^ 

902^ I^ETHPN 

9&27 CODE$ ' LEFT S^ CHEC It 5,2} 

902^ FOR X=3T0 LEN (CHECK$> 

5029 Z$=HID$(CHECK$,X,ai 

9030 Y5 = MID? (CHECKS, [X-D ,1) 

9D31 IF £S=¥$ fHEM «EXT ELSE CODE$=a>DES+ZS jKEXT 

9Q32 RETURN 



This may scund complex, so consider 

the following example: 

Name to be encoded = SMITH' 

Following the rules above the first 
character of the code will be the first letter 
of the name ieS. The second letter is not a 
duplicate of the first so use the look up 
chart above, M falls in group 5. This is the 
second character of the code Likev^ise for 
the remaining letters, I is ignored, T is in 
group 3 and H is ignored. The code is 
therefore 353'. This is expanded to four 
characters by the addition of trailing zeros, 
so the final phonetic code for SMITH' is 
S 530 ' Try t h i s for the ot he r var i ants on the 
name 'SMITH' mentioned previously, you 
will find that they all encode to S530' So it 
w^orfcs for SMITH'. How about other 
names? Try a few you can think of — you 
should be pleasantly surprised. Of course 
there ^(& a few nannes thai will defy these 
methods but these are usually of the more 
exotic or historical species™ (Try 
'CHALMONDLEY' which Is pronounced 
'CHUMLEY' — ir does not produce a 
phonetic code which is compatible with ite 
orthographies). However for the more 
common names and some unusual 
variants on spelling the encoding works 
well ( Try ^MAIN WAIRING' and MANN ER= 
ING' — the phonetic codes are identical). 

Now ro the programs themselves. The 
main listing for the coding has been written 
as a sub-routine and in its existing form is 
ready to append to any program you may 
wish. The word or name to be encoded is 
INS and the resulting Phoneticode is 
CODES. If you plan on using this system to 
any great degree it would be worth consid- 
ering adding the phonetic codes of your 
principal sort iiemsto your main data base 
to speed selection. The second listing is 
merely a short program to append to the 
main listing so that you can experiment 
with different words and names to find the 
results. 

If you operate a large data ba$e you may 
find that truncation of the final code to four 
characters results in too many selections. 
The cure is simply to enlarge the size of the 
code to five or six characters long by mak- 
ing the appropriate alterations to lines 
9015, 9016 and 9017. 

The program has been kept simple 
dellberatelyto aid transportability between 
different machines (rumour has it that 
there are other machines than the Dragon , 
but as yet the author is not fully convinced^) 

No doubt the machine-code experts 
among you will re-writeth© Basic program, 
but the obj ect of the art i cle was m ore to p ro- 
voke thought and experimentation than to 
present a ready-made machine-code rou- 
tine. The addition of one of the usual 
speed-up' pokes in the Basic program if 
your Dragon is suitable will be of great 
benefit to those planning to use It as it 
stands. 
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Expert's Arcade Arena 



Write to The Expert' at Dragon User 

49 Alexandra Road 

Hounstaw, Middlesex, TW3 4HP 



HELLO PEEPS, and welcome to the se- 
cond games round-up, which feature 
aimost all of the arcade games which are 
still readify available from third party 
sources, and were not mcluded in the 
original round up. 

The first dozen are availabfe from Com- 
putape (don^t forget the new address), Tfm 
LOL^s Crick&t from John Penn, and the last 



five are available from Preston's. back cfones, strategy games require a bit 

The original format has been used more thought than Da Average Game 

again, with all marks out of five, with three Boo-Boo, boy, and as for adventure and 

bemgthe ideal speed. Theoverall rating is sportgames, well, you can work that out for 

an I nd icator of h ow nee essa ry th e prog ram you rself . 

is to a hardened games player. There^s no room for pokes this time, but 

As for categories, well, shoot-em- up y ou can look forward to the Sc^pe/A/rf cheat 

games require an itchy trigger finger, col- codes and a few more, so now my time is 

I ectipn ga mes are for Manic Miner hunch- u p J 1 1 bog of f , i n n it. 



Title 


Graphics Speed 


Type 


Comment 


Rating 


Airball 


5 


3 


Adventure 


Ed Scio's conversion is now a big hit on the 
Atari as well. 


5 


Space Wreck 


3 


2 


Shoot 'em up 


A mixture of BatHezone and Asteroids 
wliich comes a poor second to Rommel- 
1 3D. 


1 


Tanglewoixl 


4 


l«A 


Adventure 


Not being strictly an ancade game, this will 
have to receive an average rating, although 
1 it is very popular. 


3 


' Jurior's 
Revenge 


3 


, 3 


Collection 


The King 2 — only Mario has Changed his 
name to Luigi, and is now the baddie. 


2 


Time Bandit 


3 


' 4 


Adventure 


One of the first Dragon arcade advantures, 
which has stood the test of time. 


4 


Cuthbert and 

the Golden Chalice 


2 


3 


Collection 


A simple but quite enjoyable obstacle 
course game. 


2 


Pinball 


2 


2 


Strategy 


! An unbelievably easy game which is unfor- 
tunately the only one of its kind for the 
Dragon. 


1 ' 


Fire Force 


4 


4 


Shoot em up 


What more can 1 say. 


1 1 


Indoor Football 


5 


3 


Sport 


Without a doubt the best football game on 
the Dragon. 


5 


1 Superkid 


5 


3 


Collection 


A faithful copy of the ancade classic 
onderboy, which was Wayne Smithson's 
best. 


5 1 


Screaming 

Abdabs 


4 


3 


Collection 


The hardest Manic Miner clone that 1 ve 
played. 


3 


Crazy Foota 
2 and 3 


2 


1- 
5 


Sport 


Great fun, and especially good in the two 
players mode. 


3 


, Tfrri Love's 
Cricket 


S 


1 


Sport 


Totally realistic cricket game which is as bor- 
ing as the real thing. 


£ 


Rola-ball 


4 


4 


Adventure 


Buy it now that the bug has been sorted 
out. 


6 


Bo jfder Crash 


4 


3 


Collection 


Betterthan Micnodeal's Stone Raider II, with 
the added advantage of extra screens from 
Raul Burgin. 


4 ' 


rTh© Bells 


1 


5 


Collection 


A hunchback type game which, due to fts 
sheet speed, is impossible to piay with a 

joystick, 


t ! 


Bugdiver 


2 


3 


N/A 1 


A mediocre Frogger clone which is the only 
on e of its ty pe sti II avai iable f ro m th e severa 1 
which were made. 


1 


Vegas Jackpot 


2 ' 


Ut, 


N/A 

1 


This game was co-written many years ago 
by Jason Orbaum. Good but a isit easier 
thaoihamojieyigiDhhiing mactiines. 


2 
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Polar graphics 

fC. Redhead finds a formula for entertainment 



THIS program has been adapted for the 
Dragon from an original listing in a book 
written by C^es Kosniowski called Fun 
Mathematics on your Microcomput&r, but 
greatly expanded to provide additional 
facilities such as disc storage and retrieval 
of graphs, hard copy, etc, 

I have classified it as being primarily 
educational insofar as it i I lust rates the 
translation of simple mathematical func- 
tions into a visual medium, and as such it 
could possibly be of interest to schools 
which still use Dragon computers. On the 
other hand, it is equally entertaining to 
discover the almost endless variety of pat- 
terns capable of being generated by these 



formulae. 

Once the overall structure of the pro- 
gram is understood you will see that it can 
easily be converted to illustrate other 
mathematical functions — quadratic 
eq u at i on s, f o r exam pie — or I ndeed for any 
subject where formulae can be expressed 
in graphical terms. There is ample scope 
for experiment. 

The program is written for disk opera- 
tion: no cassette version is available. SAVE 
and RUN ^POLAR^ 

Detailed notes on the program's opera- 
tion have not been considered necessary 
as it is fairly straightforward and REM 
statements are included where ap- 



propriate. However, the following points 
may be of interest: 

Lines 80 140 Screen Inverter, giving green 
on black printing. First published by Brian 
Cadge in Popular Computing Weokly, July 
1983. If you prefer orange text, change line 
140 to POKE 32644,13. The routine will 
work on a 32 K m achi n e an d on a Dragon 64 
running in32Kmode. 

Lines 170-1060 Draw Strings for hi-res 
character set, givrng 51 C PL when used at 
normal size (SC = 4). Each character has 
been created on a 4 x 9 grid. If you already 
have a similar character set on file you 



10 
2Q 
30 
40 
50 
&0 
70 
80 
90 



REM 
REM 
REM 
REM 
REH 
REH 
REM 



PROSRAMi POLAR QRAPHICS 
CLASSIFICftTIONi EDUCATION 
COMPUTER: DRAGON 3^ 

ORISINAL AUTHOR! C.KOSNIOWSKI , 1983 
DRAGON VERSION BY: K_ REDHEAD. 1988 



SCREEN INVERTER 

PCLEAR 8= CLEAR 30O. 32580 

FOR 1=1 TO 184=READA#iZ=VALr &H'+A*> =CS=C©+ZiPOKE I+32580, Z= NEXT 
lOO DATA eE^7F^63^BF^ 1 ^ SS^ QE^ 7F , DE ^ BF, 1 ^ feB^ SE^ 7F^ F6:. BF , 1 , Al , 86, 7E^ B7, 1 ,67.B7^ i^S 
ArB7, l,AO, 39,70^ 0^6F^ 27, 1 , 3^^, 32^ 62, 3i|-, 16^ SE. FF:, CO^ A7;. 3^^. A7 , 2. A73^ A7^ &^ A7 , A^ A7, C 
, A7^E^A7,aB^ 10,A7^9^Q6pD;,B7^FF,22^35^2^3'fr^2;.BE^O,38,31,a,26^3;.a6 

1 ID DATA 20^A7,8A, A7^32,20, IC^ Bl ^ D ^ 26^^ SD ^ 32^ 20, I'V, 81 , 80^ 24^ E;, Si =p 20, 25, C ^ 81 ^ 60^ 
2^,'t,84,BF.20,2,S0,20,A7,80,BF,0,38.SC,5,FF,23,12,8e,^.0.EC.38,20,ei>,31,3C,5,E0. 
25,F6,BF.0,88,90 

120 DATA 2,35,96,36.20,A7,8O. IF, 10, C4, LF,26,F6, 39, 31 , C,27, 1. 39, 3*^, 1 2, 36, 20, 3E, ^t, 

0.BF,0,88,A7,8O,3C.6,0,25,F9,35,92,27,i,39.32,62,20.E6 

130 IF CB017105 THEN PR I NT "DATA ERROR " = SOUND 1.2- STOP 

140 EXEC 32581^ POKE 32644,5 

150 REM HI -RES CHARACTER SET (51 CPL> 

160 DIM A*(90> 

170 A* CO) - ■BR3" 

130 ft* a> -"BR1D4BD2D0 * 

190 A* (2) ="BR1D2BR2U2" 

200 A* (3) ="BR1ND2BR1D2NR1L2BD2R1ND2R1ND2R1 ' 

210 A* t4) ="BR2D1NR1L1S1FIR1F161ND1L2"' 

220 A*<5>="R1BR2D1S3D1BR2RI" 

230 A* (6> =* BR3BD6U2HHJ1E3H1L1G1&1F3D1"' 

24D AS (7> -"BRSNDIRIDINLIDIGI"' 

2 50 AS <3> - ■ BR2G2 D 2F 2 " 
260 A* (9) ="F2D2G2* 

270 A* ClO>="BDlDOFlNDlRlNElDlNRlL2BRlDIN61RlNUlFr' 
230 A* tin ="BR1BD2D2BH1R2" 
290 A* (12>="BRlBD5NDlRlDlNLlDiei ' 
300 A*(13> ="BD3R3*' 
310 A# (14> ^"BRIBDSDIRIUILI" 
320 A* ! 1 5) = " BR3BD I D 1 630 1 " 
330 A* (16) -"NR3D6R3U6'* 
340 A* 1 1 7) = '' BD IE 1 D6NL 1 R 1 " 
350 A* (18) ="BDIE1R1F1D1G301R3" 
360 AS (19> = -R2FtDtGlNLlF101GlL2" 
370 AS t20>="D6R3BU2BLlD3" 
^80 A*(2n="NR3D3R2FlD161L2" 
390 AS (22) - " BR I G ID^IF 1R1E1LHH1L2" 
tfrOO AS(23>="R3D2©302" 

mo ASC24>="BR2LlSlDlFlRlFlD161LiHlUlElRlElUlHl" 
420 AS125> - ■BR2NF1L1G1D1F1R2NU2D261L1' 
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* 30 At <2^) = 


■■ED2R 1 [;* 1 L L ML 11 BD2R: 1 CM L 1 Ul " 


^40 P* C273 - 


eD2f^lDlLlNUieEi2N[>lRl0lNLlDiei 


4S0 ft* f2S) = 


■■eR2Bi:>lG2F5" 


*l-60 A* (29> = 


"BD:2WR3e&2NR3- 


£t70 rt* OO) - 


"BF1F2(^1-- 


^50 A* OIJ = 


ef*lElRlFlC»UBiDlBD2l>0' 


£^'?0 fl* 02J ^ 


■'BD tE IR IF 1 [*51,2H1U 1 E 1 R2" 


?ao A^? a3> -- 


" B R :L 1 (^ 1 D5BU3R.]^NI>3I_I2H 1 " 


510 A*04> = 


^' NO*VR2F ID IGi 1 NL2F 1 D 1611,2 '■ 


'>^0 A* (35} = 


" B^ysBi H 1 L icut*^ 1 R 1 F r^ 


•5.30 At06J = 


■■NI>^..R2F1D^+&1L.;:" 


^^O A* (373 ± 


-'MR3D3KH2b3R3^' 


'>50 A* O&J = 


"W&3D3NR2Li-^" 


=i60 fi*(39> = 


"BR3B0HlLtaip<iF|R2U2Ll " 


'>^0 ft* (40> i: 


■'D6BU3R:;IN4>:^3" 


580 ft* <^1S ^ 


■'f^2BLlD->NLlFrl" 


590 A* (tf23 = 


"RSSLIDSGIHI" 


6O0 A* (^^) = 


"NO^BR^O 1 G2htt 1 F2D i " 


tlO fit (44) : 


-D6R3" 


620 ft* r45J - 


^'fMD6Fl:DlRtUlEl&6- 


6. JO A* 1^6? = 


"ND*F3rlLr3D3- 


S^O A« ti^7? = 


"BRZLiaiD-q-F i R L£ lU^H 1 " 


f^O A* f^^> = 


■W[>6R2F1D1G1L1" 


^60 ft* ^tt9> = 


'ER:?L 1 t>iC>4F 1 P2htH ] NFll i5Hl "' 


670 ft* (!50> - 


■ W6R2F ID ], Oi 1 NL2F 1 C> 2" 


680 A* (^U = 


■8P3BDlHlLtCilDlFlRlFlC-l<5lLlHl"' 


6-?0 A* C523 = 


■R2BLl[>^- 


700 A* <?53D =: 


■frSFLRl^^tUS- 


7 KJ f^* IS**) == 


■04F2E1IJ5- 


720 ft* ^55) := 


■D^,EIU1R1D\FHJ&'' ■" 


■/30 ft* <56J = 


'D2FlRir 1[»2EL.-jU2E1BRiEIU2" 


7^0 ft* (^7) = 


■D2F1R:^NUSD2G1J_2" 


750 A# ^5SJ = ■ 


■R3D1G302P3- 


y^^Q A* <591 = 


■NR2!;>€4^2- 


770 A* <60J y' 


"filF3Dl ■ 


7550 A* (613 = 


■R206L2- 


790 ft* 1&2> =■ ■ 


^e[>2P#?3B&2NR5BD2MR3- iRErt 


ft* i:b2> =■ 


D*?miGhtt>IBR2UlHl- 


!30O A* i:63) = - 


&D3R3 


StO A*<^5J =■■ 


e02BRlRiFlt>3L2HlElR2^ 



S20 
^30 
SftO 
8-^0 
SbO 
©70 
380 
^90 
900 

920 
930 
9^0 
9^0 
960 
970 
9^0 

lOOO 

1010 
1020 
10;^ 
1040 
1050 
1.060 
1070 
1080 
1090 
llOO 

ruo 

1120 
1130 

1140 
11^0 
1160 
11 70 
11^0 
1 190 
1200 
1210 



AS (66> ="E)6i^2ElU2HlL2" 
ft* (67) ="eR36Cl2L2&lDiFlR2"" 
ft* (t&l - '■BR3El6L2HL•J2£lR2" 
A*<t91l .'^'■SD*|R2E^Hlki^=rl[>2FlR2■■ 
ft* (70) ^ ■ ■ PR3L 1 G 1 [>5eU3h*L 1 R 2 "' 
ft* <711 ="BR2BC^2^*F11_1G1D■2F1R2NUJD1G1L2" 
fi*02J -■■&6eU^R2FlD>- 
A*«73i -'^©RlDOEI>■2[>4^t^_lRl■■ 
A* (7*> = eiR,lD0BD2C>itG.l L IHl 
AS 575> ="D6EIJ2RiNe2F2- 
A* C7^.> i^"^RtD6WLlP1 " 
A* (77) ="e02ND'^FllJlRHJieil>£f 
A* C7e) ="BD2NP4(%2riD3- 
A* i7^> --BR2BD2L1&1&2F1R1EIU2H1- 
ft* (SOI ="B«>2lM[>6R2Fli:;£f31L2" 
ft* ^81? ="BR3B[>2:L2G1[>2F1R2ND2U4-- 
ft* C^2) = "• BD2D'iBU2E2R 1 " 
ft* (©3> ="BR3B[>2L2G1F1R1F1G1L::^'- 

ft* (^^) =-BRU>*^RlEieH3R2" 

ft* (35) = "B02D3F1RIE1U3" 

ft* c&fe) =' BD202^2E1U^" 
A* (87) *-'BE>2D^ElUlRlDlFlUa- 

A« (S3> ="BrJ2DlFlRlFlDlE!_3UlElBRlElUr- 

A* (39J -=-BI>2[>3Fl^2NLMIDieilL2" 

ft* (90) -"BD2f^301GlLlf^l{>lR3-' 

GOTO 1260 

PEn SCALING StJBROUTME FOi^ 51 CPL 

XS= <SC+ (SC/^3 > : VS^ (&C*2 5? : RETURN 

REM LINE CEMTERINS ROUTINE 

LN=LEig m*> +XS: X=INT ( t256-LNl /2> : RETURtd 

REK UNDERLINING ROUTINE 

LN=LEN (I1*> *X&: LINE ( <X-LN3 , <V ^^ <y^-2) ) > - 

( (X- (9C/2> i . <V^- ;yS-2J > ) , PSETi RETIJiRN 

REM HI -RES PRINT ROUTINE 

FOR 1^1 TO LEN(H*1 

CH*=A* CASC mi&* (M*, I , n i -3-2} 

GO&UB 1220 

IF X*XS>2^5 THEN ^=0:V=Y+VS 
NEXT I 

RETURN 



TEXT 



1220 X*=STR* OO -Y*=STR»m i SC*=STR* <SC> rCO* = &TR* £C03 

1230 DRAW-BM-+>^ + -", "+V*+"S-+SC*+-C-+CD*+"A~+AN* + C.H* 

1210 RETURN 

i250 REM MAIN PROW AH BEGINS 

1260 DIK FM* U6) 

127q SK=256; 9¥^ ISOi RA«0_ 92; PI -4»ATN < 1) 

12S0 HJ<=SX/2' H¥=SV/2: S* = CHfR* ^2) : SP*- STRING* (3, 32) 

1290 FOR 1 = 1 TO 16:REftl> Ftl* <I> iNEXT 

1300 REM CREDITS AND PROWAM INFDRHATION 

1310 CL5 



AN*=STR* tAN3 



could substitute it and save a fair bit of typ- 
ing, provided that two points are born in 
mind: 

1) Tine starting point for drawing a 
cha racte r is th © top-f eft corner of th e g rid . If 
your own charac[er set is conslructed dif- 
ferently, you will need to take this into ac- 
count and alter the settings of the 'Y' 
(Coordinates in order to place the text In the 
correct position on the screen. 

2) Line 730 redefines the up-arrow key to 
produce the mathematical symbol p' (See 

line 3640). The normal draw string for this 
character is given in the accompanying 
REM statement 

Line 1090 For the purpose of printing text 
on the hi-res screen, this line defines the 
steps between the starting points of the In- 
divid u al c h aracte rs (XS) a nd bet wee n f i nes 
of text (YS) as functions of the scale 
(SC) being used, so that altering SC 



automatically adjusts XS and YS accor- 
dingly. As written, the parameters are set 
for 51 CPL printing al normal size. To use 
th e nou t i n g wit h other ch aracte r sets of dif- 
ferent sizes, make the following altera- 
tions: for 42 CPL printing, ie with each 
character's width occupying five pi?^els, 
make XS-(SC*1 .5) For 64 CPL printing, ie 
with each character's width occupying 
three pixels, make XS=SC The YS 
parameter would probably not require 
altering, but this woifld depend on the 
number of text lines per screen. 

Line 1110 This subroutine automatically 

centres a line of text on the hi-res screen. 

Line 1130 This subroutine automatically 
underlines a hi-res text strrng. However, it 
cannot be ysed if the text to be underlined 
continues over from one line onto the next, 
not for that matter, if the text concerned 
reaches the end of a line, thus causing the 
print position to move to the beginning of 



the next Jine. There must be a way to get 
round this, but I haven't managed to figure 
it out yet. 

Lines 1150-1240 This is the routine for prin- 
ting on the hi-res screen. Tve used this 
method ever since lolo ap Gwynn 
demonstrated its versatility in the July 1904 
edition of Dragon U^er- it s one of several 
methods of putting text on the hi-res screen 
that have appeared over the years, I Ifke it 
because of its simplicity and ease of use. 

Line 1270 Among other things, this line 
limits the depih of the hi-res screen to 180 
pixels in order to reserve aline for labeling 
the graphs. 

Lines T760-201 Si xteen f o rm u f ae are con - 
tained in the program, displayed in two 
groups by these lines. It would be fairly 
easy to add more if required, increasing 
the number of pages as necessary and 
continued on page 25 
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1320 PI^IMTTflB «4>eTftlMa* <23,S*i 

1330 PRlNTTflB(i*>a*+"'&RAGOI4 POCftR GftAPHICS"+S* 

%3'^0 PRlMTTABi^^S* TflS I7> "BY K.REDHEftO 1968'^ TW <26J a* 

Idr'SO PRINTTAB<*t>S* TAB (SJ "flOftPTED FROM fihl" TftB 4,26> S* 

13*0 PRINtTABi*t>S* TAB tfiJ oeiGINAL PROGfifttl BV TAB 12&)^* 

1370 PRINTTAet'*)S*+'"CZES KOSN10*lSKT l^e3-*a* 

1360 PRINTTFlB (**! STlRlh*G* 123»S*> 

1390 PRINT 

l<*0O Pf?INT-THlS PROBftAfl ENABLES YOLI TL. H_OT"; 

lAlO F^1NT"THE eRfiPHS OF POLAR FUMCTIOW9. A^*; 

t*20 PRINfLieRPRV OF FUMCTIOHS IS PPOMIDED", 

lJk30 PRINT- TO ENABLE YOU TO E>:PERIheNT WITH-; 

l^WO PRINT" DIFFERENT UflLUES_ " 

1*^50 PRINT 

life* PRlhlTTftBCn -pfiESS THE SPftCEBflfi TO CONTlhiJe"; 

IttC K*=INKEV*=IF K*="" OR K*<:>CHR« 132} THEW l*t7£> 

IftSO REM DISPLAY HELP SCREEN 

1*90 SOSUB 15OO=QOT0 l^'KJ 

150O CLS 

I^IO PRINTTABC3> "POLAR GRAPHICS - H^UP SCREEN" 

1520 PR I NT TAB i3} STRINfi* (29, 4^ : PRINT 

1530 PRINT "FACILITIES AVAlLAa_E: -"": PRINT 

1540 PRINtTABIA) "F>FUHCTlQHS LlBRARV^ 

1I550 PRINTTAB *4i "S^SftVE GRAPH TO DI^K" 

1560 PftlNTTflBCa^ -Li^LOAO GRAPH FROM DlS*< 

1570 PRit4TTA6 tVt "REPRINT &RAPH" 

1530 P1?1NTTAB W ■■D>VIEH DIRECTORY" 

1590 PRINTrAB(ar'M>RETURN TO HELP SCREEN'" 

1600 PRIMTTftS «4> "T> TUTORIAL'- 

16 lO PRINTTfiB<m "E3 TERMINATE PROGRAM'' 

1&20 I^RINT: PRINT 'WHICH DO YOU REQUIRE?" 

1&30 RETURN 

1&40 K*^INKEY*:IF K*^"'THEN 16A0 

1^50 P=INSTR I-FSLPOHTE'%K*? ilP P>0 THEN ItSO 

It-feO PRINTTABOl -INVALID - PLEASE RE-ENTER" 

1670 WAIT 2O0OraQTO 1%90 

1630 C(N P GOSUB 1770.2^00,26^0.2910^3250,1300,3370,1700 

l^^O IF F<e THEN lt40 EL5e END 

17IJ& CLS 

1710 PRINTaH37p "POLAR QRftPHlCS- 

1720 PRINTSl69,STRIN&t tl^^'+^J 

1730 PRINTaEfiOrPRORRAH TERMINftTED'' 

17q^ PRlNT53^^>STRINft* ilS,*51 

1750 RETURN 

J7I&0 REM DISPLAY FUNCTIONS LIBRARY 

1770 CLS 

1730 PRINTTflBt^J -FUNCTIONS LIBRARY PAGE 1" 

1T9D PRINTTAB CftJ 3TR1N6* (2ftp^5) ? PRINT 

laoO FOR 1=1 TO S 

ISIO PRiNTTAB (frJ CUR* at64> ;CHR* <62J i"R*-;FM* tU 

1320 NEXT 

1330 PRINTTf^ S6S CNR* C90> i ChIR* C62> ; "VIEM NEXT PftSe" 

1840 PRINT ^PftlNT^MHICH UO YOU REdUIRf- 

1850 K*=iNKEY»ilF K*=""THEN 1950 ELSE N=ASC tK*> - Ml 

3,9&0 IF N=26 THEN IB^O ELSE IF N=>1 AND N = <8 THEN -JOtO 

1S7D PRIHtTAB<3> '^IMyflLID - PLEASE RE-ENTER'" 

1680 MA IT 2OO0:G0T0 1770 

1&90 CLS 

1900 PRINTTAB 14 J -FUNCTIONS LlBRfllfY PAGE 2" 

1910 PPiNTTAB[4JStRlNG*12ft-**5^ = PRINT 

1920 FOR 1=3 TO I 6 

1^30 PRINTTAB Cfil CHR* Clt^&il} ;CHR# (621 i "R-";Fl1* II > 

1^40 NCJ^T 

1950 PT?tNTTAB(6>CMR* E*0} iCHR* (62) ;"WIEM PREVIOUS PAGE" 

1960 PRINT: PR INT 'hlH I CH 00 YOU REOUlRE?" 

1^70 K*=IMKEY*:1F K»=""THEN 1^70 ELSE N=ASC (K*5 -64 

19^0 IF N=S6 THEN 1770 ELSE IF N=>9 AND Nttci^ THEN 2010 

l-SraO PRINTTAB <3> "I NVfiL 10 - PLEASE RE-ENTER" 

2000 WAIT 20O0:G0TO 1S90 

2010 ON M qOBUB '^ISO, 4140, 4160.<*190, 420O, 4220, a340> 4260, 

ii7^0, AtaoO- 4 320 p 4340 P ^360 ^ ^330, 44O0,**42O 
20^0 CLS 

2030 PR INT "FORMULA CHOSEN I§; " 
2040 PRINt "R= " ; Frt* CW - PRINT 
2050 PRINT -FOR STANDARD PLOT USE A- 1 , B= 1 " 
2060 PRINT: INPUT "ENTER VALUE FOR A " s A 
2070 INPUT -ENTER VALUE FOR B -;e 
2030 REM CALCULATE RANGE OF ft 
20^0 CLS 

2100 PRINTa201p"CflLaJLATING" 
2110 PRINTS233,STRINQ*C11,45> 
2120 W^l .O"~-50 

2130 FOR Z=0 TO 2*PI STEP O- 1 
2140 R*l%BS<FNAi[2>> ^ IF n<R THEN M-R+O. 1 
^150 NEXT 
2160 CLSi 

2170 PRINT "AN IDENTITY NUMBER IS REQUIRED- 
2180 PRINT-FOft THIS GRAPH. DO VOU WISH TO"" 
2190 PRINT-CHECK THE DIRECTORY BEFORE YOU" 
2200 PR INT "^ALLOCATE ONE lY/ W" 
23 lO K*=1NKEV*:IF K*«"-THEN 2310 
2220 IF K*<>"V" AND Ktc^'N'' THEN 212 lO ELSE IF K*='"Y- 

THEN aOSUB 3250 ^ _ 

2230 PRINT: INPUT' ENTER GRAPH lOENTlTY NUMBER ; 10 



2240 ID**3TR* <I0> = ID*-=MID* UO*, 2J i A*=STR* «A> iA*=rlID* 

< A* , 2> : B*»"^TR* m^ : R*=N T T>* IR* "^V ^ ^ ^, , „ 

2250 PRINTS PRINT 'A NOTE WILL SOUND MHEN THE GRAPH ; 
2260 PRINT "IS COMf LETE „ VOU MUSI THEN PRESS" i 
2270 PR INT "THE REOUIREO KEY [filpdhte> WHEN"; 
Z2B0 PR INT "YOU Mi^H TO PRttCEOE. - 

2290 PRlNTa481p -PRESS THE SPACEBAR TO CONTINUE".. 
2300 K»-INKEY*:IF K*^-'-^^. K*<>CRR* <321 THEN 330O 
2310 REM LABEL AND PLOT GRAPH 
2320 PNODE 4^1 ^SCREEN I ^O" PELS 
2330 M*=-aRAPH Nn . '■ + 1D* + SP*+"R-^" •FM* (N> +SP** "A- ^^+A*+SP** 

-■e="*B* 

2340 Y*1S3:BC='4: GOSUB 1090i ANf=0: CO-1 
3-350 SOSUB UlO-GOSUe 1150 
2360 FOR Z^O TO 2*P1 STEP O.Ol 
2370 R=FNfi(Z> ■ 

2380 U=HK*HV»RA*CO(S *A*Z) wR/M 
2390 IF UcO OR U>S>: THEN 24SO 
3400 y=HY+HY#SIN IB*Z> *R/M 
24 lO IF W^O OR y->S¥ THEN 2450 
2420 PSETaJ,Sy-V) -IF Z-0 THEN 2ifif40 
2430 LINE {Kp Y:^ - OJpSY-W? rPSET 
2^40 «=U:V=SY-V 
2.450 NEXT 

24fiO IF A=l ANO B' 1 THEN PSET <0* iai> 
2470 SOUND 10C,30 
2490 RETURN 

2490 REM SAVE GRAPH TO DIBK 
2500 CLS 

2310 PRINTTAB UO} -^fl^ GRAPH" 
2530 PRINTTAB<!Oi STRING* CIO, 45i I Pf^INT 
2&30 GiOSUB 35*0=BOT0 2330 

25*0 PR I NT -'CHECK THAT THE CORRECT DISK I^" 
2550 PRIHT-ftEADV IN THE DRI^ & PRESS TH^" 
2560 PR I NT "SPACEBAR TO CONFIRM." 

2S70 K*=INKEY*^1F K*='^"OR K*<:>CHR* (32? THEN 2570 ELSE RETURN 
25BO F*="eiRAPH"*ID**-.He6" 
2^90 SAVE F*p 3073. ^215^6144 
260O M*^?^*+" SAVED'' :LN-LEN(M*) 
2610 PRINT^PftlNTiPRINrrTAB(16-LN/2^M* 
2620 PRINTTAB(l6-LN/23STRING*tLN^45J- 
2630 PRINT3450* "PRESS REOUIPED KEV CTs Ipdhte) " 
2640 RETURI^ 

2feSO REN LOAO GRAPH FROM DISK 
2660 CLS 

2670 PRINTTAB CI 0> "LOAD GRAPH' 
2630 PRINTTABC101STRIN&*<10.454 = PRINT 
2t«> &OSUG 2540 

270Q PR I NT 1 PR I NT "GRAPHS ARE FILED BY IDENTITY" 
27 I O PR I NT "NUMBERS- DO VOU HIGH TO CHECK - 
2720 PR I NT -THE DIRECTORY BEFORE SELECT I N6" 
2730 PR I NT ■ ONE ^ V /H) '^ " : 
2740 K*=INKEY*:1F K*="''THEN 2740 

275C IF K*c>-y- ANQ K*<>'"N." THEN 2740 ELSE IF 'K*-"V- 
THEN GOSUE 3290 

276fl CLS 

2770 FRINT'^ENTER THE tDENTITV NO. OF THE" 

27&0 PRINT-GRAPH Y*3U WISH TO V^IEI^"; 

2790 INPUT 10= 11>*=STR* CIDi : ID*=MIO* <ID*p2:^ 

2SO0 F*="^GRAiPH~ + IDt+'".HRG" 

2910 PRINT r PRINT -'AFTER THE GRAPH HAS BEEN LOADED "- 

2B20 PRINT"& DISPLAYED p PRESS THE REQUIRED" 

2S30 PRINT" KEY Cf^lp€tl^t> WHEN YOU WISH TO" 

2340 PRINT "PROCEDE, " 

2350 PRINTS431/^PRESS THE SPACEBAR TO CONTINUE"; 
.2860 K*=INKEY*=1F K*=""OR K*c3CHfi* i32> THEN 2B60 

2S70 PMODE 4.1: SCREEN 1,0:PCLS 

SBiBO LOAD F* 

2B^O RETURN 

2900 REiM PRINT GRAPH 

2910 CLS 

3920 PRINTTAB tlOl -^ PRINT GRAPH" 

2930 PRINTTAB C10> STRING* il 1 , 45> : PRINT 

2940 PR INT "PREPARE PRINTER & PRESS ANY KEY" 

2950 PR INT "WHEN READY tO PROCEDE. " 

2960 Kt-IN*i:E¥*: IF K*^--THEN 2960 

2S70 PRINT :PRINT"'PRTNTINQ WILL TA»<E A FEW MINUTES"; 

390O PRINT:PRINTTAB (lOJi "-PLEASE WAIT" 

2^^t> PR I NTT AB C I O? STR 1 N6* (11. 45» 

30CO PRINT £-2.TABt23S -'"; 

3010 PRINT £-2pCHR*«27J ; "--;CHR*aUCHR* (14J iCHK*<27)- ; "E'"i 

3020 PRINT £-2p "POLAR GRAPHICS" 

3030 PRINT £-2pCHR*.?13J iCHRKlOJ ;CHR*I14S ;C-HR*127> ;"F"; 

3O40 ft=PP01NT(O.IS*? :IF A=l THEM T*^" tSTAW>Af^> " ELS£.T*='^ 

(ENHANCED) " 
3050 PRINT £-2iTABC4l "PLOT OF POLAR FUNCTION "*Tt 
3060 PRINT IL-2pCHR* (27J J"''^^CHR*<0J ;CHfl»(20Ji ; 
3070 PRINT £-2 

30eo REl-i HI -RES SCREEN DUMP (FOR BROTHER HH-S PR INTER! 
3090 PR INT £ -2 p CHR* *27) ; " 1 ^ ; CHR* (271 i " M " ; 
3100 PRINT £-2:Y=0 

3110 PRINT £-2,CMR*<9> -.GHR»(9i ;CHR*<9* i 
3120 PRINT £-2,CHR*(27J ;"K-;CHlS*i255) : CUR* (OJ ; 
3130 FOR X=0 TO 25S 
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31^0 A=PP01NT (X,V> *128+PP0INT (>C,V+1) *64+PP01NT (X, Y+2> *32+PP01MT (X,Y+3) *16+PP0INT 
(X,Yti^) *8+PPOINT (X,Y*5) *4+PPOINT (X,V+*) *2+PPOINT (X,V+7) 
3150 IF X=255 THEN A=0^eiOTO 3170 
3160 PRINT f:-2,CHR*(A) ; = NEXT 
3170 PRINT £-2,CHR#tlOJ ; 
3130 V=Y+S;IF Y<:191 THEN 3110 
3190 PRINT £'2,CHRS t27> r^'jCHRSdSl ; 

3200 PRINT £-2- PRINT £-2, TAB (5> "PLOTTED USING EQUIVALENT CARTESIAN CO-ORDINATES 
tR*COS <A«r2> ,R*SIN (B*Z> ) " 
3210 PR INT: PR I NTTABt?) "PRINTING COMPLETED * 

PRINT: PR INTTAB(2J "PRESS REQUIRED KEY (fslpdht^)" 

RETURN 

REM yiEW DIRECTORY 

CLS 

PR I NTT AB t9> " D 1 SK D 1 RECTOR Y " 

PRINTTftB (9) STRING* (14,45) i PRINT 

GOSUB 2b40 

OIR:IF PEEK <1A62K>ASC <*M''l AND P<>5 THEN 3310 ELSE IF PEEK a4&2> <>ASC fM") 

P=5 THEN 3340 

K*=INKEY*: IF K*=*""THEN 3300 ELSE 3290 

PRINTa482, "PRESS THE SPACEBAR TO PROCEDE"; 

K*=INKEY*:IF KS=""OR K^'i^CHR* (32> THEN 3320 

CLSi RETURN 

PR I NT34S2 , " PRESS REQU I RED KE V tFSLPD HT El " ; 

RETURN 

REM TUTORIAL ' 

PMOOE 4 , 1 i SCREEN 1 , 1 1 PCLSl ^ COLOR O , 1 

SC=4:G0SUB 10^0-'AN=OiCO=0 

Y = l: XS=5: YS=10: SC=4: AN=0-. C0=0 

M*=" POLAR COORDINATES - TUTORIAL" 

GOSUB 11 10; GOSUB 1150=GQSUB 1130:X=0 

M$=" Polar Coordinates is a method by 



3220 
3230 
3240 
3250 
3260 
3270 
32BO 
3290 

AND 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
33S0 
3390 
3400 
3410 
3420 

n the p 1 ane 
i-P&Pole- " 
3430 QOSUB 1150 

3440 LINE (35, 176) - (170, 176> , PSET 
3450 FOR T=l TO 5 

3460 CIRCLE (35, 176) ,6, 0,1, 0.04,0.96: WAIT ISO 
3470 CIRCLE (85, 176) ,6, 1,1, 0.04, 0.96; WAIT 150 
3480 NEXT;X=X+ iXS*2) 

3490 M*="A point in the plane is now reipre&ented 
e R denotes its distancef rom the Pale" 
350O GOSUB 1150=TX=X=TY=Y 
3510 X=l52;Y=l27iM*=" (R,Z) " = GOSUB 1150 
3520 X= 1 14: V= 142: M*="R"; GOSUB 1 150:X=TX+XS: Y=TY 
3530 FOR T=l TO 5 

3540 LINE (35, 176> - tl50, 130) , PRESET: WAIT 150 
3550 LINE (35, 176» - USD, 130) , PSET: WAIT 150 
3560 NEXT 
3570 M*="and Z is tlT^ angle formed between tir»eAxi5 and 

this point, thisan^gld being measured antic lackMise if 



:Y=11 
wl^i ch 



the lacationof a given point P 



■nay be defined. Wec:aiiinience wi tH one Axis and a point on it called 



by apair of numbers (R,Z) , wher 



the line from the Pol© to 
Z is positiveor clockwise 



i f Z has I 
3SS0 GOSUB 
3590 
3600 
3610 
3620 
3630 
3640 



ne^a t i ve va 1 ue . " 
1150iTX=XiTY-Y 
X= 1 03: Y= 1 66 : M*- " 2 " : GOSUB 
FOR T=l TO 5 

CIRCLE £85,176) ,10,1, l,0.90, 1 
CIRCLE <S5, 176) ,10,0, 1,0, 90, 1 
NEXT 
M*=" However, Ris always taken 



1150:X=TX+ <XS*2> : Y=TY 



WAIT 
WAIT 



150 
150 



We write P'^(R,Z), thesymbol 



as positive, 
standing for 'is uniquely defined by'." 
3650 GOSUB 11 50: GOSUB 3660: GOTO 3680 

3660 Y=1SI:M*="PRESS THE SPACEBAR TO CONT I NUE " : GOSUB 11 10: GOSUB 
3670 K*=INKEV*:IF K*=""OR K*<>CHR* (32) THEN 3670 ELSE RETURN 
363D GOSUB 3690: GOTO 3710 

3690 PCLSl :Y=liM*=" TUTORIAL (CONTINUED) " : GOSUB ^ 110: GOSUB 1150- GOSUB 
370O X=^0: Y= i 1 1 RETURN 

37 lO M*="It will be seen that if either or both of these twocoordi nates are chan 
ged, then the location of pointP will also change accordingly, as in the fallowi 
nge>;amples: -" 



1150: GOSUB 1130 



1130 
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(R^Z) iscal led a' 



3720 QOSUe 1150-Y=V+YS:X=7 

3730 LINE (120, 120J - fl90, 120) ,PSETr WftIT 150 
37'fO M*="P1'' (2.5,35) "-BOSUB 3860 
3750 LIME (120, 120) - tl72,Sf) ,PSET 
3760 X=17'»:Y=S0:M*="P1"^G0SUB 3970 
3770 H* = '■ P2^ ( 1 . S . 1 30) " : GOSUB 3S60 
3730 LINE a20, 120) - £92,86) ,PSET 
3790 X=*86iY-80iM*='P2": GOSUB 3870 
38O0 H*= 'PS-^ (3^220> "iGOSUB 3860 
3310 LINE tl20, 120) - (62, 169) , PSET 
3820 X=56rY=166:M*="P3":S0SIJB 3370 
33 30 M»="P'»^ (2.3,- ^0> •■: GOSUB 3S60 
3QtiO LINE {120, 120> - (16*fr, 1S7> ^PSET 
3850 X= 1 66 : V= 153 sh*="P4": GOSUB 337O:GOT0 3880 
3S60 GOSUB 1150= GOSUB 1130i TX=X;TY=Y= RETURN 
3370 GOSUB 1 150= X=TX+XS: Y=TY- WAIT 1000- RETURN 
3880 'aOSUB 3660- GOSUB 3690 

3690 M*=*'A func-tion that involves Polar Coordinates 
3900 QOSUB 1150-X=X+XS 

39 1 M* = " POLAR FUNCT I ON . *■ ; GOSUB 1150: GOSUB 1130:X=X+(XS*2) 

3920 t1$="For i n^tdnce, R=SIN <2) isa Polar Function. Substituting this exaiiKpTe i 
n ourbasic formula, P' (R,Z) , would -give us P'^ (SIN (Z) ,Z) . " 
3930 GOSUB 1 150iX=0i Y=V+VS 

39''K) M*="Tq draw the graph of a Polar Function, we take eachvalue 
pecified range, and use this toplot the point P"^ (R,Z) using Polar 
3950 GOSUB 1150-X=0= Y=V* (YS*2> 

3960 M*="Tq make the plotting easier the program substitutes" 
3970 GOSUB 1150iX=0 

39aO M*=" CARTES I AN COORD I NATES " i aOSUB 1150= GOSUB 1130:X=X+XS 

3990 h^="in its calculations, which i^the mor$ usual method of representing poin 
ts i n theplane. The point tF,2) in Polar Coordinates is theeq^ui va 1 ent of (R»COS 
tZ) , R*SIN <Z) ) in Cartesian Coo-rdinates, and this i^ what we plot." 
400O GQSUB 1150= GOSUB 3660-QO5Ue 3690 

4010 M^="nany interesting & coinplex patt&rns can be produced! f instead of using 
the basic Cartesian Coordinat&s (R«COS (Z) « RitSIN £Z) ) we now introduce two addition 
si numbers, (ft,B), & plot tR#COS (A*Z) , R»SIN (B*Z) ) . "* 
40 2 O GOSUe tl50i>«:=X+(XS*2) 

4030 M$="IPboth A Bi B are given a valtie of 1, the program wi 1 Icalcul&te & displa 
y the STANDARD PLOT of the chosenf uncti on_ Assigning any other values to A and/ 
or Bwi 1 1 result in ^ome «fui te spectacular and beauti f ul var i ations. " 
4040 GOSUB J 150 
4050 Y-150:SC=8:G0SUB 1090 

4060 M*="TUTORlAL ENDED" : GOSUB 1110: GOSUB llSOrGOSUB 1130 
4070 Y-180tSC=4:G0S>JB 1090 
4080 M*=" PRESS REQUIRED KEY (FSLPDHTE) " ^ Q0SU8 11 10- GOSUB 11 50= GOSUB 1130 



of Z in some 
Coordinates. ' 



409O RETURN 

4100 REM FORMULAE 

4110 DATA SIN (2»Z) 

4120 DEF FNA(Z) =SIW(2*Z) -RETURN 

4130 DATA SIN (5*2) 

4140 DEF FNA(Z> ==51*4 (5*Z> : RETURN 

4 ISO DATA SIN (6»Z) 

4160 DEF FNA(Z) =S IN (6*Z) 'RETURN 

4170 DATA SIN (7»Z) 

4 ISO DEF FNA(Z) =S IN (7*Z) : RETURN 

4190 DATA S1N(9*Z> 

4200 DEF FNA(Z) =S1N(9*Z) iRETURN 

4210 DATA 1*SIN<2*Z> 

4220 DEF FNA(Z) =1+SIN(2*Z) ; RETURN 

4230 DATA l*SINi5*Z> 

4240 DEF FNA(Z) =l + !iIN(5*Z) : RETURN 

4250 DATA t+SlN (6*Z> 



4260 DEF FNA <Z>=1+S I N (6»Z> : RETURN 

4270 DATA 1+3IN(7*Z) 

42SO DEF FNA <Z>=1+S I N (7»2> : RETURN 

4290 DATA 1+S1N(9*Z) 

4300 DEF FNA <Z> =1 *SIN (9»Z) : RETURN 

4310 DATA l+COS(Z) 

4320 DEF FNA <Z) =1*C0S <Z) : RETURN 

4330 DATA 1 +2*COS (Z> 

4340 DEF FNA <Z> =1+2*C0S (Z> : RETURN 

4350 DATA Z/4 

4360 DEF FNA (Z»=Z/4: RETURN 

4370 DATA 1+2*C0S(2*2) 

4380 DEF FNA (Z) = 1 +2*COS (2*Z) : RETURN 

4390 DATA 1+2»C0S(5»Z> 

440O DEF FNA(2) -J+2*COS(5*Z) ^RETURN 

4410 DATA 1+2»C0S(7»Z) 

4420 DEF FNA tZ) - 1 +2*COS (7*Z> : RETURN 



I 
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Continued from page 21 

providing ©xt&nd^ forwards arid backwards 

paging. 

Lines 2170-2240 I needed away of labelling 
the graphs for disc storage and retrievaf. Us- 
ing the actual formuJae was not possible as 
thev contain more than eight characters. 
Likewise, trying lo invent descriptive 
filenames proved to be a non-starter. Using 
identity numbers was the only viable alter- 
native I could think of. 

Line 2460 If the standard, as opposed to an 
enhanced, plot of a function has been drawn. 

this line PSETS a single, onobtrusjve pixel, 
so that when the graph is printed, Line 3040 
will print the appropriate heading. 

Lines 2910-3230 Hard copy if required, 
printer instructions are for a Brother HR-5 
printer. Alter the screen duinp commencing 
at I j ne 3090to suit your own printer. If you have 
a machine code routine, so much the better. 
Better still, if you have a copy of MacGowan's 
Dwmper program, you couid save a copy of 
this on the same disc and re-write this routine 
to call it up from within the main program 
when a screen dump was required. 

Lines 3250-3350 Access the disk directory A 

jingle-drive system has been assumed, but 
th e routine can easi ly be altered to s uit a twin- 
drive system if required. My own 



system has a SuperDos E-6 controller, which 
allows the directory to be viewed a screenful 

at a time, indicating that extra items are to 
folitow by printing the word MORE towards 
the bottom-right corner of the screen. By 
PEEKing at this location {line 3290) to ascer- 
tain whether the first letter of MORE is pre- 
sent or not, the program either loops back to 
the nesct page of the directory or, according to 
the value of R returns to the current 
subroutine or to the Help screen. If your own 
system hasadiffefent controller, this routine 
wi 1 1 p robab ly be of no use to y o u i n its p rese nt 
form , and wi 1 1 req u i re ne^vriti ng as necessary. 

Lines 3370-4090 Tutorial. It is essential that 
the print stringS are typed in exactly as 

shown, othenwise the text will not be printed 
correctly 

Lines 4110-4420 Formulae These lines are 
pai red. The f i rst lin es of each pair are the data 

statements which are read by line 1290 for 
display in the functions library. 



f^-L^QTl 



The second lines contain the equivalent 
defined fur>ctions for use in the actual plot- 
ting, incidentally, does anyone know of a 
method by which one can line input defined 
functions directly while a program is 
running? 

If the thought of that typing dismays 

ycu. I can supply copies of the program 
at the following rates, inclusive of post- 
age and packaging; on disc supplied 
by me £5.00; on disc supplied by pur- 
chaser EaoO; on cassette supplied by 
meE4.00: on cassette supplied by purchaser 
£3.00. Cheques, etc, to; K. Redhead, 21 Bax- 
ter Avenue, Newcastle upon Tyne NE4 9QD. 

Finafly the program has been carefully 
tested and is bug-free to the best of 
my belief. However, if anyone with greater 
expertise thari myself would like to write 
in with suggestions for improving my 
programming techniques. I am willing 
to learn and thank you in advance. 



F'CtLV^F; F L.J r%i i_ r i c aisi 







PLOTTED Lf^JhKi EOuiyftLENT C^WTESlifthl CO" Q»['I*lftTES Jp^MS- <&*■£) .R*=.IW lE*r; i 



CLASSIFIED ADS 



TWO double sided double den- 
sity SO track drives (1 unit) with 
double density DeltaDOSeiBO. 
Centronics GLP A4 printer £75- 
GEC wide carriage dot matrix 
printer £75. f^any books. DU 
magazines, discs, tapes, car- 
tridges etc. Telephone (0G82) 
Luto n 867527 even i ngs. 



DRAGON 32, Dragon disc 

drive. Dragon 64, double 
Dragon disc drive, SuperOOS 



with accessories in original 
boxes, software. games, 
utilities, compilers, spead- 
sheets, books, mags, manuals. 
£400. Will split. Call 049161 
3247 Oxfordshire, 



FINALCHANCESALE. Dragon 

32 £20, no pets allowed in new 
house. SAE Full list, Nic Spiers. 
1 1 4 Green way , Tu n b ridge 
Wells, Kent TN23JN. 



HERE'S MY CLASSIFIED AD. 
(please write your copy i n capitals on the lines below) 











































































Name . . 
Address 



Tel: 



Classtried rate: 35p per word. 

Please cut out and s^nd this forrntQ: Classified Depart me nt^ 

Dragon User, 49 Alexandra Road, Hounslow, MidchcTWa4HP 



Communications 

Write down your problem On the coupon below (make it as brief and 
legible as possible) together w^th your name and address and send it 

to Communication, 49 Alexandra Road, Houn$low. Middx TW3 4HP 



Problem 



iii-»«iii 



Name . 
Address 



Adventure Contact 

To htkp puzzled adventurers fyrih&r, we are inslituling an Adventure 
Helpline — simply fill in ihe coupon be^ow, stating ihe name of the 
adventure, your problem and your name and address, and send it to 
Dragon User Adventure Helpine. 49 Alexandra Road, HounsJow. 
Middx TW3 4HR As soon as enough eniries have arrived, we will 
$.tart pFinttng them in the magazine. 
Don't worry — you'll st»ll have Adventure Tf iai lo write lo as well! 

Adventure .....».,« ^ ........ ^ , 

Pieblem ..,,.... ^ *.*.*-........,,,,.,,, ^ 

Name . . « - * - ^ .. t p .■■■--..-. ..»*.. 

Adfitees , ,....«, ^ ,,..... * . , 
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A nice round sum 

So mysterious is pi that it took 1600 years to find 35 digits 



LAST month, we cormmenced a brief ex- 
arnination of the mysteries of the number 
p i , ihe rat io of a ci re I e's c i rcumf ere nee to its 
diameter. To conclude our review of this 
number iet's iook at some of the attempts 
that have been made to caiculate its value 
to greater degrees of accuracy. As an in- 
dication of its enigmatic nature it was not 
unril the sixteenth century that its value 
was known with certainty to ten decimal 
places. This was the result of an amateur 
mathematician, Francisco Vieta^ who also 
devised one of the first methods of 
calculating pi by means of a non- 
terminating series. The close of the six- 
teenth century saw the accuracy extended 
to 35 dec i m at places by th e G e rma n/Du tc h 
mathematician Ludolph van Ceuien.Al his 
own request^ these 35 digits were engrav- 
ed on his tombston e. 

During the seventeenth century twq 
more methods were devised for the 
calculation of pi. These were by the 
Englishman John Wallis and the German 
G Wtiiebniz. Both methods involved the 
use of n on -terminating $eries: 

pi = 2 X 2 x^ Xj4 xQ X 6 x 8 x J 
2 13 3 5 5 7 7 9 



&i- 


1 


- 1 


*1 - 


1 + 


1 


- 1 


+ 1 


. 1 + 


4 




3 


S 


7 


9 


11 


13 


15 



The first of these (Wallis') consists of an 
endless stream of products, while the se- 
cond isa^um with alternating positive and 
negative components. By coniinuing the 

series indefinitely the value of pi can. in 
theory, be calculated to as many decimal 



100 
110 
120 
L30 
140 
L50 

leo 

170 
l&O 
19 
2{JD 

10 
1010 
1020 
10.10 
1040 

2000 
2010 
2020 
203Q 
2040 
2050 
20G0 
2070 
2060 
2090 
2100 
2110 
2120 
2130 
2140 
2150 



CLEAR 3000iOP=l:L$-"5" :MS-"2 39" :R-3 

A$=L$:GOSUB 2000 1 J$=Q$ : A5=M$ : GOSUB 2000:K$-Q$ 

Z?-L5 :in~25;GO$yS 10Q0:L$-P$ :2$-K$;M=S7121:GOSUB lCiOO:MS = P5 

Z5=LS :H=KtGOSUB 1000 : A?=P? :GOSUB 2000:N$=QS 

Z$-M$:M-R;GOEUB 1000 ^ A$=P$ : HOSUB 200O:O$=QS 

A$^I1ID?C J$, J) :B$=HIDS (N$, 3) :0N OP GOSUB 4000, 3000 ^ J$= ''0 h 

A$=MIP5fK$^ 3) :S$=HID$(0?, 3 ) :0N OP GOCUB 4000, 3000 ; K $= "0 , 

Z$-K?:K-4 :GOSUB 1000^ B$=P$ : Z$ =J$ h M=16 : OOSUB 1000:A^=P$ 

GOSUB 4000:PRrHT"K.F.= " ; R :PRri^T'^3 . " ; MID? ( A$, 3 ) 

IF 0P = 1 THEN OP =^2 ELSE bP = l 

R=R+2:G0T0 12 



"+AS 



PS="";C=0:FOR L=LEN£ZS)TO 1 STEP-1 

V=VAI:<MID$ EZ$,L,1 ) 3 :V=V*M#C:V$ = MLD$(STR$(V) , 2} : 

P$-RIGHTS^(V$, 1 )+PS:C: = VAI^( LEFTS (V$,LEN(V?}-1 ) } 

HEXTzlF COO TKEM P5^H1D5 tSTR5 [ C ) , 2 HP? 

RETURN 



C=Q 



Q$ = "0 . '^tSTRlNGS (LKN(A$ ) 

B$ = "r'+-3Tf!ltJG$(LEM(A$) , 

M=l 

Z$=A5:G0SUB 1000 

IF LEN(B$KLEN(P$}THEN 

LEN(P$ J<LEH(B$)THEfl 

P$<B$ THEN 

P$^B$ THEN 



-I,"0' 



) 



IF 
IF 
IF 

IF LEW [P$)<LEN(B$) THEN PS="0"^PS 
5$ = "" :C = 0;FOF G=LE:n{P5 3TO 1 STEP 



2040 
2 50 



B$ = "0'^+B$tUOTa 
P$="0''+f'$ :GOTO 

M = K-HiGOT0 2030 

2090 ELSE H=J1~1'G0SUE 1000 

GOTO 2oau 

1 



V=VAL£MrD$tB$,G,l} ) -VAf.. ( KI D$ { P^, G^ 1 3) -C:C=0 

IF V<0 THEN V=VtlO:C=l 

S$=MID$(STF$(V],2}+F?$:NEKT 

IF LEFT$(.S:?,1)="0"THEE^ F^$ = HED$ ( G$, 2 ) ^GOTO 2130 

B$ = S$+"'0'^:QS-Q?+MID5 (£TR$(M) , 2 ) MF LEN(g$><25:;^ 

RETURN 



THEN GOTO 20:^0 



3 000 T?-'^'^ ;C=Q :FOR G = LEH(A$) TU 1 STEP-l 

3 0L0 V=VAL(MIDS(A$,G,1) ) +VAL( MID$ ( B$, G, 1) ) i^C; 

3020 IF V>9 THUri V=V-10:C=1 

3030 T$ = MID$(STR9tV) ,2 3 f-T$ ;NEXT : A5=T$ i RETURN 



C=0 



^DOn TS="";C = 0:POH t:=LEN(A$) TO J STEP-1 

4010 V-VAL(MID5(A$,G,1) 3 "VALC MID$ ( BS , G^ 1} ) ^CiC-O 

4020 IF V<0 THEN V=V-H0:C=1 

40 30 TS=HID$(STR$(V3,2 3+T$:NEXT: A$-T^;RETURN 



Prize 



ASSUMING that you take less than 1600 
years to work out The solution to Gordon 
Lee's puzzle, and don't require a custom- 
made headtone at the end of your labours, 
you will be in line for one of ten copies of /n- 
doorFooibAi}\ by kind permission of Com- 
putape. This ex-Quickbeam game has 
been given league-beating reviews in OU. 



Rules 



KICK the idea about a bit on your Dragon 
until you get a-round to sin answer. Park it 
on paper (no tapes this time, please), with 
any additional remarks (remember, this is 
sone of th e few com petitions wh ic h a I lows 
correspondence, at least before the judg- 
ing), put down your name and address, 
and se n d it oft to us inane n velope ma r ked 
OCTDBER COMPETITION. 



For the tiebreaker, use your wit and 
wisdom to complete th^ phrase "I like In- 
door Football better than outdoor football 
because .„ "» 



July winners 



QUESTION: what have Dragon users in 
common with God, apart from a tenacious 
commitment to project they said would 
never last? Answer: they move in a 
mysterious way. We had lots of entries from 
first-timers this time. Why? How do I know? 
But welcome aboad, 

This month's winners are David 
Marsden of Garston (seriously), Ton Den- 
ton of South Norwood, Denis O'Mulioy of 
Cambridge, John Blatch of Addlestone, P 
D Maddocks of Taplow, Malcolm Mc Bride 
of Little Harrowden, Roy Cashmore of 
Blaston, Fred Wiliers of Yarnfield and Ron 
Raine of Sapcote, 

These ten will be receiving copies of 



I 



Super Nova from Orange Software. They 
will . that is. whan I find the list of names and 
addresses that Gordon so kindly sent ma I 
have just absorbed a brilliant article called 
How To Manage Your Paper, which I am 
told wi 1 1 change my I if e. Th e g i si of it is t h at 
you should throw everything away. Hold 
on, perhaps I . . 

Anyway, favourite tiebreaker from D J 
Gray: "My wife says, my favourite number 
is umpteen, because that's the number of 
limes she has to tel I me to do a ny th i ng . But 
actually my favourite number is umpteen 
minus One, because that is the only com- 
mand I actually hear' (Try "Dearest, 
there's a man at t h e d oor who wan is to g i ve 
you a free Maserati". Hell hear that,) And 
cou nt I ess m em hers of ou r com m u n ity had 
favourite ages that they will never see 
again. Don't worry — according to the law 
o! recurring series, there should be 
another one along soon. 

Solution 

See opposite page 
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p faces as is d&sfred. These twg formulae 
have been converted into the listings given 
here in whicli varfables S, D, and N {where 
appropriate) repres-&nt the step number, 

denominator and numerator respectively. 
Before the euphoria sets in at frnding a 
met hod of calou 1 at i ng p i , I sh ou Id poi nt ou t 
that in a practical sense, both of these are 
strictly limited, as will be seen if these 
listings are typed in and run. 

A far more useful formula is that known 
as the Machin Formula as it resolves much 
more speedily than the two already given: 



( 



1-1 * 

5 3 



1 + 1 X 
5^ 5 



1_- 
1 - 



-1x 1_+lx 

239 3 239^ 5 239' 



) 
) 



This form u fa can bead apted i nto a 11 sti ng i n 
a similar manner to the others and will 
quickly evaluate pi to several decimal 
places, however because of limitations in 
the arithmetic capacity of the Dragon, an 
overflow (OV) error will soon be en- 
countered as a result of raising 239 to a 
power greater than 1&, 

While writing this account of pi I came 
across a short account in a century old 
book on the calculation of pi correct to 6 or 



WALLIS 




10 X=2:S = 1:N^2:D=^3 




2(3 Z^2*X 




30 PRINT H;" ^' ; Z 




40 X=X*M/D 




*iO IF S/ 2= I NT (S/ 2) THEN 


D=^D4 2 ■ 


ELSE N=Nf^ 




6U i) = y+.l 




70 GOTO 20 




LEIBWIZ 




:10 X=1;S=1:D^3 




(20 Z = 4*1S 




30 PRINT S;" ";^ 




40 F=l/D 




&0 IK S/2'=INT(iJ/2)THEH 


X=X+F 


ELSE X=X-F 




i>U a-S+l:E>=D42 




7 GOTO 20 





7 figures. The book was A Treatise on 
Bementary Trigonometry by the Rev J B 

Rock, and the method used was a very in- 
tricate method of a r ith m eti ca I ly ca leu lat i n g 
square roots to an accuracy of about 8 
decimal places (the method being based 
on Archimedes' inscribed polygons, as 
outlined last month) ^ A footnote to the ac- 
count says: "The student is advised to ac- 
tually work through the calculation once. 



and he will have the satfsf action of having 
himself calculated the value of pi" By 
adapting the Machin Formula and utilising 
the string' arithmetic method of calcula- 
tion referred to a number of times on this 
page recently the second listing will carry 
out this evaluation, and will, as J B Lock 
remarked a century ago, give the satisfac- 
tion (albeit using a computer) of having 
calculated the value of pi. 

For the competition this month we are 
returning to the two formulae by Wallis and 
Leibniz. The disadvantage, as will be 
readily seen, is that the value of pi is corn- 
puted exceedingly slowly. For exam pie, us- 
ing Wallis' formula it takes nine steps 
before the first digit of pi — the 3 — 
stabilises. The next digit, the i, does not 
stabilise until the 37th step, while it takes 
985 steps before the third digit — the 4 — is 
known with cerlainty. The table below lists 
the first three results for both of these for- 
mulae. Can you fill in the correct figure for 
the fourth digit? 



pi 




Wallis 


Letbniz 


3 


stsp 


9 


7 


1 


step 


37 


25 


4 


step 


985 


627 


1 


step 


■? 


? 



The Answer 



This is Gordon Lee's own 

solution to the July competition 

see page 26 for results 



THE listing given here will give a 
reaso n ab I e res u 1 1 f or n u mbers in t he ra nge 
1 to 999999999 Because of the way in 
which certain numbers are phrased when 
spoken, certain checks are carried out in 
the prog ram — in particular, to determine 
if an 'and' needs to be inserted in order that 
the result sounds correct. For example, we 
say 'one thousand anrf one\ but we drop 
the and' if we say 'one thousand four hun- 
dred\ 

When dealing with a nine digit number 
we can fortunately employ a number of 
short cuts. For instance the nine-digit 
number can be split into three three-di^git 
segments, such that we speak of 'so many 
million, so many thousand and so many'. 
Each of the three digit segments can be 
handled in the sarne way. This is done in 
the subroutine from line 2000^ Each of the 
three digits is extracted into variables D1 , 
02, and D3. D1 will be the number of 'hun- 
dreds ' i n t he t r i plet . If th Is is zero the step is 
Skipped, otherwise the relevant word from 
the array DS is inserted fnto string W$. 
Similarly, the digits representing the tens 
i s done i n t he sam e way e xcept that th e a r- 
ray T$ is used which holds the terms 
Twenty', Thirty' ^ 'Forty' and so on. The 
units are done in a similar manner. The on- 
ly irregularity is in handling the teens'. 
Thus, all values less than 20 are handled 
as though they were units (line 2210) and 
are read from the array D$ — i.e. 1 3 would 
be read as thirteen'. 

The remainder of the prog ram relates to 
putting together the three segments 
representing the millions, thousands, and 



ELSE Z*=I*+" - 



10 DIM D*CJ?^ ,T*<9> 

20 FOB F-1 TO 19:R£fiD Zt 

30 D^CFI-Z^iMEKT 

40 FDR F=l TO 9: READ Z* 

SO Tt<F)=Zt.:MEXl 
lOO IlFlPUT Q« 
UO [F LEM{.C»}<9 THEW Q*=''0-+Q»iGQTO 110 

120 rito|_EFT4fD«,3)3Tt=h££)»{Q*,4.3>:Ut=Ri[5HT*{D«,3» 
130 Z*--" 

140 IF H* = -f>00"THEN 200 

ISO Nt=iM«-GGSUB 2000 

lAO Z*=Z*+Mt+'^ NlLLIGN - 

170 TF T»="00i:>" AND Ut-^CMlJO" ThlEN 340 

200 IF T*='^0OO"ThtN 3O0 

210 N*=T*:BC15UB 2000 

220 Z1--Z •*»**" THOUSAND'- 

230 IF U*-»O&0''THEM 340 

300 IF ri*-"OO0-'flH0 T*="00O- FHEN 320 

310 IF T*-"000" OR LEFT*(U*,lJ-"0" THEN Z*=Z*+- AND 

32& NVHJfeEBOSJLIl 2OO0 

340 PRINT 7*: GOTO lOO 

^9*? END 
1 OOO DATA DrtE , Tl« , THREE , FDLJR , F T UE, S 1 X , SEVEN , E I &HT , M T HE , TEN , ELEVEN , TWELVE , THI RTC 
EN , FOURTEEN , F IF tEEH , S I X TEiN , SEVENTEEN , E I GHTEEN^ N I NFTEEN 
lOlO DATA rENpIWENTY,THIRTV,FDRTV.FIFfY^5IXTY^SEyEWTy,E10HT¥-NlHETY 
2000 H*="'- 

2010 IF LEfJ{N«}<3 THEN N*='^0'-+N»l GDTG 201<? 
2020 Dl-VM_{N[pt{N*, ]f m 
2O30 D2^VA|-CmDt(N«,2, 1>I 
2&40 ];i3=VAL<N[D*{Nt,3, ill 
2100 TF D1=0 THEN ZZOO 
21 IC H«<»H»+I>*CDir-^- klUNDRED^ 
^120 IF D2=0 AND D3-C T1HEN 3500 
2130 W»=W*+- AND " 
2200 IF D2=0 thEN Z300 

2210 IF D2-10+D3<20 THEN W*=l#*+D* < D2* 10+D3> i ECTD 2500 
2220 H*^W»+t»CD2} 
2230 IF D3-0 THEN 2500 
2240 H*-*W*i-'* ■ 
2300 IF D3=0 THEN 2500 
23 lO M«-W«-i-Df (D3) 
2500 RETlJilN 



units (units here meaning values under 

one thousand). Once again, checks are 



earned out to determine where an 'and' 
3 ho u id be placed rather than just a space. 
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Dragon Answers 



Seek for the 
Answer 

I own a Tandy 64 with disc drive and 
OS -9. Reading the OS- 9 manual, it 
mentions the possiblity ot u$ifig 
tapes. This would be ideal for quick 
backups and may be the chance of 
communicating with another 
Oragon while running OS-9- 

C- Mo^^ 

63 WithycombB floarf 

PBnkBth 

Cheshire 

WA52QJ 

WHAT pu need is an OS-9 devloe 
driver for the cassette system. One 
appeared in the March 1988 issue 
Hi DU. Ypu II need an assembler 
and a fair knowledge ot OS-9to use 
it. Alternatively , perhaps someone 
kn aws Df abai tabled rive rs for OS-S 
(public domain?) and will let us 
know. 




If you ve got a technical question write to Brian Cadge. 

Please do not send a SAE as Brian cannot guarantee to 

a ns we r i ndivi d ual In q u I ri e 5 . 



IBM clone 

I have been thinking of getting my 
Dragon 32 a disc system. I have a 
spare IBM PC floppy drive of 360K 
and I have been wondering which 
disc controller I will need to use it 
with the Dragon. Can you tell me 
which Oragon specific operating 
system is the closest to IBM 
PC-DOS? 

John Edwards 

32CheshamRo^d 

Nonon 

ClevBiand 



Pin No. 
10 
12 
14 
16 



Dragon 

Drive 1 Select 
Drive 2 Select 

Motor On 





IBM 




Motor 


Enable 


A 


Drive Select 


B 


Drive 


Select 


A 


Motor 


Enable 


B 



Every which way 
but Left . . . 



COULD youpleasetell maif there isa 
fairly simple machine code routine 
f D r sc roi I i ng the text screen left, o ne 
column at a time? 

I have routines for scrolling the 
screen in the other three directions, 
b ut I can not com plete th e pro g rain I 
am writing without a left scroll 

URSalthotJse 

7 River Street 

Ware 

Herts 

SG127AF 



THE rollflwing roullne will do the 
trick. It is relocatable, %u |ust POKE 
the code {h ei bytes given i n 9 eft col- 
umn) wherever you want and EXEC 
at that address. 





. 






; SCROLL 


, TEXT LEFT 


SE 04 00 




LDX £1024 


C6 IF 


LOOPl: 


LDB £31 


AS 01 


L00P2; 


LDA 1,X 


A7 80 




STA ,X+ 


5A 




DECB 


26 F9 




BNE LO0P2 


86 60 


' 


LDA £96 


A7 80 




STA ,X+ 


8C 06 00 




CMPX £1536 


25 EE 




BLO LOOPl 


39 




RTS 



OS-9 
driver 



I own a Dragon 32 computer with a 
Dragon Data disc drive and recently 
a fault has developed in the DOE. 
When I use any command such as 
DIR, the drive indicator light comes 
on and a S K ERRO R cod e is repo rted = 
IVIy manual doesn't explain the 
mean i ng or cau sa of this e rror . 

IsthisafaultwiththeDontrDlleror 
d i rve and co u Id it be re cti f i ed by b uy- 
ingaSuperDOSchip? 

Sof OS M^ndahs 

2 Kibbh white Cresc&n t 

Twyford 

Berks 

RG109AX 



THE 'SK' error stands for SeeK er- 
ror. This occurs when the drive 
c onl rol ler c h i p s wt\ uest f o r a seek 
(or move) to one of the 40 tracks on 
a disc fails. This coyld be due to a 
f au II i n th e contro II e r cartridge , o r 
more li kely i n the dri ve i tse H . Occa- 
sJDnallyadirtyedge connector islo 
blanrte (try removing the cartridge 
and cleaning the contacls with 
isop ropy I al cho h o I , aval labl e from 
the pharmacy counter at 
chemists). 

If this has no effect, you'll need 
to get your drive serviced. In any 
cascp replacing the Dragon DOS 
eprom with a Super DOS eprom will 
nollielp. 



THE pin connections ota PC drive 
are almost identical to those 
specifieii by Drag on DOS (and 
tfierefore any compatible car- 
tridge controller. That is, all odd 
numbered p ins are Gniund, pin 8 is 
Index^ through to pin 32 which is 
select head 1\ 

The only differences are in pins 
111,12, 14and 16: 
You II pro bail (y find that for a 
single drive no <^ress overs need be 
marie. PNP manufacture suitable 
disc controller cartridges, which 
are available from Bob Hatris at his 
usual address [die^^k for price and 
availability). As far as Dragon OSs 
are concerned, it is a choice bet- 
ween FLEX and OS 9 Neither is 
much like IVtSDOS, butas-9 is pro- 
bably nearer in structure (stand by 
for the complaints from FLEX 
fanatiGsagainlJH 



Recurring 
DREAMS 



FINALLY, anoteonthe problemsof 
saving source code from Dream. It 
seems many of you have the same 
problemandalls^ythevariduspat- 
cties published do not work— well, 
it n w seem s tti at the re a re at J e asl 
three totally ditlerent versions of 
Dream In CFrcuialion. The patches 
da work, but only on the most com- 
mon version. Waf{ihthis space... 
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